diff --git a/Annex/VectorClock.hs b/Annex/VectorClock.hs
index 3a77f5f0eb..e7ed501bd2 100644
--- a/Annex/VectorClock.hs
+++ b/Annex/VectorClock.hs
@@ -24,7 +24,7 @@ import qualified Data.Attoparsec.ByteString.Lazy as A
 -- | Some very old logs did not have any time stamp at all;
 -- Unknown is used for those.
 data VectorClock = Unknown | VectorClock POSIXTime
-	deriving (Eq, Ord)
+	deriving (Eq, Ord, Show)
 
 -- Unknown is oldest.
 prop_VectorClock_sane :: Bool
diff --git a/Logs/Presence/Pure.hs b/Logs/Presence/Pure.hs
index 43306b5950..2c09e8fea9 100644
--- a/Logs/Presence/Pure.hs
+++ b/Logs/Presence/Pure.hs
@@ -26,10 +26,7 @@ data LogLine = LogLine
 	{ date :: VectorClock
 	, status :: LogStatus
 	, info :: LogInfo
-	} deriving (Eq)
-
-instance Show LogLine where
-	show l = "LogLine " ++ formatVectorClock (date l) ++ " " ++ show (status l) ++ " " ++ show (info l)
+	} deriving (Eq, Show)
 
 data LogStatus = InfoPresent | InfoMissing | InfoDead
 	deriving (Eq, Show, Bounded, Enum)