From 4f7e72b51a9a81f5c7effac0f8d1d38ef23bc617 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 8 Feb 2014 15:27:11 -0400 Subject: [PATCH] fix parsing of unused log; keys can contain spaces --- Logs/Unused.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Logs/Unused.hs b/Logs/Unused.hs index eff8186cf8..d26d37dca7 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