mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix parsing of unused log; keys can contain spaces

Browse source
This commit is contained in:
Joey Hess 2014-02-08 15:27:11 -04:00
parent b9e6cb07ad
commit 4f7e72b51a
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Logs/Unused.hs
View file

@ -86,7 +86,9 @@ readUnusedLog prefix = do
_ -> Nothing _ -> Nothing
where where
(sint, rest) = separate (== ' ') line (sint, rest) = separate (== ' ') line
(skey, ts) = separate (== ' ') rest (rts, rskey) = separate (== ' ') (reverse rest)
skey = reverse rskey
ts = reverse rts
readUnusedMap :: FilePath -> Annex UnusedMap readUnusedMap :: FilePath -> Annex UnusedMap
readUnusedMap = log2map <$$> readUnusedLog readUnusedMap = log2map <$$> readUnusedLog