diff options
-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 |