diff options
Diffstat (limited to 'Types/Group.hs')
| -rw-r--r-- | Types/Group.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Types/Group.hs b/Types/Group.hs index dd06cbfd7..564e75d0f 100644 --- a/Types/Group.hs +++ b/Types/Group.hs @@ -7,7 +7,7 @@ module Types.Group ( Group, - GroupMap + GroupMap(..) ) where import Types.UUID @@ -17,4 +17,7 @@ import qualified Data.Set as S type Group = String -type GroupMap = M.Map UUID (S.Set Group) +data GroupMap = GroupMap + { groupsByUUID :: M.Map UUID (S.Set Group) + , uuidsByGroup :: M.Map Group (S.Set UUID) + } |