diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-28 13:55:46 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 13:56:38 -0400 |
| commit | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (patch) | |
| tree | 25e9b72db536d0cc6c8d55a9d90a2eacf178d95e /Logs | |
| parent | f351b887265f0abce8d52ffcb7b9b2ee7bd8bc81 (diff) | |
refactor
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Difference/Pure.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Logs/Difference/Pure.hs b/Logs/Difference/Pure.hs index bbd4d348d..25f3844d6 100644 --- a/Logs/Difference/Pure.hs +++ b/Logs/Difference/Pure.hs @@ -18,8 +18,7 @@ import Types.Difference import Logs.UUIDBased parseDifferencesLog :: String -> (M.Map UUID Differences) -parseDifferencesLog = simpleMap - . parseLog (Just . maybe UnknownDifferences Differences . readish) +parseDifferencesLog = simpleMap . parseLog (Just . readDifferences) -- The sum of all recorded differences, across all UUIDs. allDifferences :: M.Map UUID Differences -> Differences |