diff options
| author | tv <tv@shackspace.de> | 2014-12-24 22:03:52 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-12-24 22:03:52 +0100 |
| commit | 702ea18f68930a3d6f7af68d35a15d2865821aba (patch) | |
| tree | 8be7d3fcb2d0ba0c75f38a1fdef1e7f12e379b9e | |
| parent | 4ab52c211d3f36669ce670148f2307f3566bd458 (diff) | |
directly compare `Message`s
| -rw-r--r-- | ThreadView.hs | 6 |
1 files 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 |