From 688450c2d9998db7b4389dc9642d219774c23857 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 16 Dec 2018 13:51:02 -0500
Subject: More TCP work.

---
 Presence/Chat.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Presence/Chat.hs')

diff --git a/Presence/Chat.hs b/Presence/Chat.hs
index b7343b5a..883f40ea 100644
--- a/Presence/Chat.hs
+++ b/Presence/Chat.hs
@@ -46,6 +46,8 @@ data MembershipEffect = MembershipEffect { fromMembership :: Membership
                       | InvalidMembershipEffect
  deriving (Eq,Ord,Read,Show)
 
+instance Semigroup MembershipEffect
+
 instance Monoid MembershipEffect where
     mempty = NoMembershipEffect
     MembershipEffect a x `mappend` MembershipEffect y b
-- 
cgit v1.2.3