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 /src/Main.hs | |
| parent | 214aa9142556cbee2cea214d395a7cf9a2c86c4b (diff) | |
Use EREBOS_DIR environment variable and default to ./.erebos
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |