From 3327618e5b48afb10a8f98afe15c750d8ed4c416 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Jan 2015 13:55:46 -0400 Subject: refactor --- Logs/Difference/Pure.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Logs') 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 -- cgit v1.2.3