diff options
Diffstat (limited to 'src/Store/Store.hs')
-rw-r--r-- | src/Store/Store.hs | 4 |
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`) |