diff options
| -rw-r--r-- | src/Store/Store.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Store/Store.hs b/src/Store/Store.hs index 1ec59ef..b55c56d 100644 --- a/src/Store/Store.hs +++ b/src/Store/Store.hs @@ -171,7 +171,7 @@ readFile' :: (G.BlobOid GB.LgRepo -> ReaderT GB.LgRepo IO a) -> FilePath -> StoreM a -readFile' cat fp = do +readFile' cat (makeRelative "/" -> fp) = do State {tid} <- get Env {repo} <- ask lift $ G.runRepository GB.lgFactory repo do @@ -187,7 +187,7 @@ readFile' cat fp = do =<< G.treeEntry tree (B.fromString fp) writeFile :: FilePath -> LB.ByteString -> StoreM () -writeFile (B.fromString -> fp) v = do +writeFile (B.fromString . makeRelative "/" -> fp) v = do State {tid} <- get Env {repo} <- ask tid' <- lift $ G.runRepository GB.lgFactory repo do @@ -197,7 +197,7 @@ writeFile (B.fromString -> fp) v = do modify $ \s -> s {tid = tid'} deleteFile :: FilePath -> StoreM () -deleteFile (B.fromString -> fp) = do +deleteFile (B.fromString . makeRelative "/" -> fp) = do State {tid} <- get Env {repo} <- ask tid' <- lift $ G.runRepository GB.lgFactory repo do |