24 lines
603 B
Haskell
24 lines
603 B
Haskell
{- git-annex difference log, pure functions
|
|
-
|
|
- Copyright 2015 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Logs.Difference.Pure (
|
|
allDifferences,
|
|
parseDifferencesLog,
|
|
) where
|
|
|
|
import qualified Data.Map as M
|
|
|
|
import Annex.Common
|
|
import Types.Difference
|
|
import Logs.UUIDBased
|
|
|
|
parseDifferencesLog :: String -> (M.Map UUID Differences)
|
|
parseDifferencesLog = simpleMap . parseLog (Just . readDifferences)
|
|
|
|
-- The sum of all recorded differences, across all UUIDs.
|
|
allDifferences :: M.Map UUID Differences -> Differences
|
|
allDifferences = mconcat . M.elems
|