From 9470f77fbace237fd956f9768ff114a9cefd29b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 13 Jul 2021 22:03:00 +0200
Subject: Use EREBOS_DIR environment variable and default to ./.erebos

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3