mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add --ingroup limit

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
Types/Group.hs
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