diff options
Diffstat (limited to 'Types/Group.hs')
-rw-r--r-- | Types/Group.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Types/Group.hs b/Types/Group.hs index 564e75d0f..88bc35207 100644 --- a/Types/Group.hs +++ b/Types/Group.hs @@ -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 |