aboutsummaryrefslogtreecommitdiffstats
path: root/src/Store/Store.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Store/Store.hs')
-rw-r--r--src/Store/Store.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Store/Store.hs b/src/Store/Store.hs
index 59a3ebf..134c8c3 100644
--- a/src/Store/Store.hs
+++ b/src/Store/Store.hs
@@ -32,7 +32,7 @@ import Data.Time.Clock (getCurrentTime)
import Foreign
import Git qualified as G
import Git.Libgit2 qualified as GB
-import System.FilePath (makeRelative, normalise, (</>))
+import System.FilePath (addTrailingPathSeparator, makeRelative, normalise, (</>))
import Text.Printf (printf)
import Prelude hiding (readFile, writeFile)
@@ -92,7 +92,7 @@ withCommit cid action = do
(Env {repo, ref})
listFiles :: FilePath -> StoreM [FilePath]
-listFiles (normalise . ("/" </>) -> fp) = do
+listFiles (normalise . ("/" </>) . addTrailingPathSeparator -> fp) = do
State {tid} <- get
map (makeRelative fp)
. filter (fp `isPrefixOf`)