diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2021-07-13 22:03:00 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2021-07-13 22:03:00 +0200 |
| commit | 9470f77fbace237fd956f9768ff114a9cefd29b0 (patch) | |
| tree | 6efa8feaeebe0c29a515d59076127ef285c8822e | |
| parent | 214aa9142556cbee2cea214d395a7cf9a2c86c4b (diff) | |
Use EREBOS_DIR environment variable and default to ./.erebos
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | src/Main.hs | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -1,3 +1,4 @@ .ghc.environment.* cabal.project.local dist-newstyle/ +.erebos diff --git a/src/Main.hs b/src/Main.hs index 4bb2f14..54c5714 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -41,7 +41,7 @@ import Sync main :: IO () main = do - st <- liftIO $ openStorage "test" + st <- liftIO $ openStorage . fromMaybe "./.erebos" =<< lookupEnv "EREBOS_DIR" getArgs >>= \case ["cat-file", sref] -> do readRef st (BC.pack sref) >>= \case |