diff --git a/packages/host/lib/Ribosome/Host/Data/Report.hs b/packages/host/lib/Ribosome/Host/Data/Report.hs
index 4211274..c99e9f9 100644
--- a/packages/host/lib/Ribosome/Host/Data/Report.hs
+++ b/packages/host/lib/Ribosome/Host/Data/Report.hs
@@ -55,10 +55,14 @@ data Report where
     severity :: !Severity
   } -> Report
 
+instance Eq Report where
+  Report luser llog lseverity == Report ruser rlog rseverity =
+    luser == ruser && llog == rlog && lseverity == rseverity
+
 instance Show Report where
   showsPrec d Report {..} =
     showParen (d > 10)
-    [exon|LogReport { user = #{showsPrec 11 user}, log = #{showsPrec 11 log}, severity = #{showsPrec 11 severity} }|]
+    [exon|Report { user = #{showsPrec 11 user}, log = #{showsPrec 11 log}, severity = #{showsPrec 11 severity} }|]
 
 instance IsString Report where
   fromString (toText -> s) =