diff options
Diffstat (limited to 'Logs/Difference')
| -rw-r--r-- | Logs/Difference/Pure.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/Difference/Pure.hs b/Logs/Difference/Pure.hs index 76d995a01..bbd4d348d 100644 --- a/Logs/Difference/Pure.hs +++ b/Logs/Difference/Pure.hs @@ -19,7 +19,7 @@ import Logs.UUIDBased parseDifferencesLog :: String -> (M.Map UUID Differences) parseDifferencesLog = simpleMap - . parseLog (Just . fromMaybe UnknownDifferences . readish) + . parseLog (Just . maybe UnknownDifferences Differences . readish) -- The sum of all recorded differences, across all UUIDs. allDifferences :: M.Map UUID Differences -> Differences |