From f0869cb1e98c574deecb350f8e879e1be39de94b Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 5 Jun 2024 18:00:29 +0200
Subject: allow absolute file names
---
src/Store/Store.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
(limited to 'src/Store')
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
--
cgit v1.2.3