add --ingroup limit
This commit is contained in:
parent
7cd81bd978
commit
e375b931c0
8 changed files with 65 additions and 20 deletions
|
@ -7,7 +7,8 @@
|
|||
|
||||
module Types.Group (
|
||||
Group,
|
||||
GroupMap(..)
|
||||
GroupMap(..),
|
||||
emptyGroupMap
|
||||
) where
|
||||
|
||||
import Types.UUID
|
||||
|
@ -21,3 +22,6 @@ data GroupMap = GroupMap
|
|||
{ groupsByUUID :: M.Map UUID (S.Set Group)
|
||||
, uuidsByGroup :: M.Map Group (S.Set UUID)
|
||||
}
|
||||
|
||||
emptyGroupMap :: GroupMap
|
||||
emptyGroupMap = GroupMap M.empty M.empty
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue