diff options
Diffstat (limited to 'Annex/Locations.hs')
-rw-r--r-- | Annex/Locations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Locations.hs b/Annex/Locations.hs index acae9c079..bb45d8a3e 100644 --- a/Annex/Locations.hs +++ b/Annex/Locations.hs @@ -263,7 +263,7 @@ gitAnnexTmpWorkDir :: FilePath -> FilePath gitAnnexTmpWorkDir p = let (dir, f) = splitFileName p -- Using a prefix avoids name conflict with any other keys. - in dir </> "work." </> f + in dir </> "work." ++ f {- .git/annex/bad/ is used for bad files found during fsck -} gitAnnexBadDir :: Git.Repo -> FilePath |