From 702ea18f68930a3d6f7af68d35a15d2865821aba Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 24 Dec 2014 22:03:52 +0100
Subject: directly compare `Message`s

---
 ThreadView.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ThreadView.hs b/ThreadView.hs
index dd795ef..c56152c 100644
--- a/ThreadView.hs
+++ b/ThreadView.hs
@@ -46,13 +46,13 @@ data ThreadView
 
 instance Eq ThreadView where
     TVMessage m1 == TVMessage m2 =
-        messageId m1 == messageId m2
+        m1 == m2
 
     TVMessagePart m1 mp1 == TVMessagePart m2 mp2 =
-        messageId m1 == messageId m2 && mp1 == mp2
+        m1 == m2 && mp1 == mp2
 
     TVMessageLine m1 mp1 ln1 _s1 == TVMessageLine m2 mp2 ln2 _s2 =
-        messageId m1 == messageId m2 && mp1 == mp2 && ln1 == ln2
+        m1 == m2 && mp1 == mp2 && ln1 == ln2
 
     _ == _ = False
 
-- 
cgit v1.2.3