summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-01-28 13:55:46 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-01-28 13:56:38 -0400
commit3327618e5b48afb10a8f98afe15c750d8ed4c416 (patch)
tree25e9b72db536d0cc6c8d55a9d90a2eacf178d95e /Logs
parentf351b887265f0abce8d52ffcb7b9b2ee7bd8bc81 (diff)
refactor
Diffstat (limited to 'Logs')
-rw-r--r--Logs/Difference/Pure.hs3
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