summaryrefslogtreecommitdiff
path: root/Types/Group.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-08 15:18:58 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-08 15:18:58 -0400
commitc452c70ef88197b152c1552563daa6a79e88e91f (patch)
tree27b2031fdb79d183a8abef7ca837cb25a0ecd3a0 /Types/Group.hs
parent1ccd0ed1e6541534626673dc5dbdd97c9ab9ca49 (diff)
add --ingroup limit
Diffstat (limited to 'Types/Group.hs')
-rw-r--r--Types/Group.hs6
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