diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-09 14:30:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-09 14:30:26 -0400 |
| commit | e6b3d6d722f2185ceca9150cbf6eadf1e1a10066 (patch) | |
| tree | 2ccaf745b9ef2c02788d68059d0c94d429a273fc /Logs/UUIDBased.hs | |
| parent | a33edddcae62eec75f3058577690413904af9386 (diff) | |
clean up cruft left in log by bug
Diffstat (limited to 'Logs/UUIDBased.hs')
| -rw-r--r-- | Logs/UUIDBased.hs | 5 |
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 |