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

avoid accidental Show of VectorClock

Browse source 
Removed its Show instance.
This commit is contained in:
Joey Hess 2017-08-14 14:43:56 -04:00
parent 2cecc8d2a3
commit 0b307f43e1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Logs/MapLog.hs
View file

@ -19,7 +19,6 @@ module Logs.MapLog (
import Common
import Annex.VectorClock
import Logs.TimeStamp
import Logs.Line
import qualified Data.Map as M
@ -27,7 +26,7 @@ import qualified Data.Map as M
data LogEntry v = LogEntry
{ changed :: VectorClock
, value :: v
} deriving (Eq, Show)
} deriving (Eq)
type MapLog f v = M.Map f (LogEntry v)
@ -43,9 +42,9 @@ parseMapLog :: Ord f => (String -> Maybe f) -> (String -> Maybe v) -> String ->
parseMapLog fieldparser valueparser = M.fromListWith best . mapMaybe parse . splitLines
where
parse line = do
let (ts, rest) = splitword line
let (sc, rest) = splitword line
(sf, sv) = splitword rest
c <- VectorClock <$> parsePOSIXTime ts
c <- parseVectorClock sc
f <- fieldparser sf
v <- valueparser sv
Just (f, LogEntry c v)