diff options
author | Joe Crayne <joe@jerkface.net> | 2018-12-16 13:51:02 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2018-12-16 14:08:27 -0500 |
commit | 688450c2d9998db7b4389dc9642d219774c23857 (patch) | |
tree | 69933330ad0baba2eb115d70d1e63cb085664ea1 /Presence | |
parent | 8a72757ae66f6ec013b8f3443aea6f3266a2ab26 (diff) |
More TCP work.
Diffstat (limited to 'Presence')
-rw-r--r-- | Presence/Chat.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 | |||
46 | | InvalidMembershipEffect | 46 | | InvalidMembershipEffect |
47 | deriving (Eq,Ord,Read,Show) | 47 | deriving (Eq,Ord,Read,Show) |
48 | 48 | ||
49 | instance Semigroup MembershipEffect | ||
50 | |||
49 | instance Monoid MembershipEffect where | 51 | instance Monoid MembershipEffect where |
50 | mempty = NoMembershipEffect | 52 | mempty = NoMembershipEffect |
51 | MembershipEffect a x `mappend` MembershipEffect y b | 53 | MembershipEffect a x `mappend` MembershipEffect y b |