diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-08 15:27:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-08 15:27:11 -0400 |
| commit | 66998d2b63a1e48605f55cba717afa6c00ac1e69 (patch) | |
| tree | 991e36a817403d71ed53a5e599a0a91072b661c9 | |
| parent | e474523f5eccd675412201230a4a72c1ab90cb6c (diff) | |
fix parsing of unused log; keys can contain spaces
| -rw-r--r-- | Logs/Unused.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Logs/Unused.hs b/Logs/Unused.hs index eff8186cf..d26d37dca 100644 --- a/Logs/Unused.hs +++ b/Logs/Unused.hs @@ -86,7 +86,9 @@ readUnusedLog prefix = do _ -> Nothing where (sint, rest) = separate (== ' ') line - (skey, ts) = separate (== ' ') rest + (rts, rskey) = separate (== ' ') (reverse rest) + skey = reverse rskey + ts = reverse rts readUnusedMap :: FilePath -> Annex UnusedMap readUnusedMap = log2map <$$> readUnusedLog |