diff options
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 |