add --ingroup limit

This commit is contained in:
Joey Hess 2012-10-08 15:18:58 -04:00
parent 7cd81bd978
commit e375b931c0
8 changed files with 65 additions and 20 deletions

View file

@ -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