mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
This commit is contained in:
Joey Hess 2015-01-28 13:55:46 -04:00
parent ba3825441c
commit 037d86e046
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Logs/Difference/Pure.hs
View file

@ -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