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