quickcheck property for parsing of content identifier logs

Logs/MapLog.hs

@@ -20,6 +20,7 @@ module Logs.MapLog (
 import Common
 import Annex.VectorClock
 import Logs.Line
+import Utility.QuickCheck
 
 import qualified Data.ByteString.Lazy as L
 import qualified Data.Map.Strict as M
@@ -32,6 +33,9 @@ data LogEntry v = LogEntry
 	, value :: v
 	} deriving (Eq, Show)
 
+instance Arbitrary v => Arbitrary (LogEntry v) where
+	arbitrary = LogEntry <$> arbitrary <*> arbitrary
+
 type MapLog f v = M.Map f (LogEntry v)
 
 buildMapLog :: (f -> Builder) -> (v -> Builder) -> MapLog f v -> Builder