summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rw-r--r--src/Main.hs2
2 files changed, 2 insertions, 1 deletions
diff --git a/.gitignore b/.gitignore
index 2cc0ef5..cceb219 100644
--- a/.gitignore
+++ b/.gitignore
@@ -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