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/Chat.hs | |
| parent | 8a72757ae66f6ec013b8f3443aea6f3266a2ab26 (diff) | |
More TCP work.
Diffstat (limited to 'Presence/Chat.hs')
| -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 |