summaryrefslogtreecommitdiff
path: root/Logs/UUIDBased.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-09 14:30:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-09 14:30:26 -0400
commite6b3d6d722f2185ceca9150cbf6eadf1e1a10066 (patch)
tree2ccaf745b9ef2c02788d68059d0c94d429a273fc /Logs/UUIDBased.hs
parenta33edddcae62eec75f3058577690413904af9386 (diff)
clean up cruft left in log by bug
Diffstat (limited to 'Logs/UUIDBased.hs')
-rw-r--r--Logs/UUIDBased.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Logs/UUIDBased.hs b/Logs/UUIDBased.hs
index c1901eef7..10b3bf55d 100644
--- a/Logs/UUIDBased.hs
+++ b/Logs/UUIDBased.hs
@@ -63,6 +63,11 @@ parseLogWithUUID :: (UUID -> String -> Maybe a) -> String -> Log a
parseLogWithUUID parser = M.fromListWith best . mapMaybe parse . lines
where
parse line
+ -- This is a workaround for a bug that caused
+ -- NoUUID items to be stored in the log.
+ -- It can be removed at any time; is just here to clean
+ -- up logs where that happened temporarily.
+ | " " `isPrefixOf` line = Nothing
| null ws = Nothing
| otherwise = parser u (unwords info) >>= makepair
where