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

status: display repository groups

Browse source
This commit is contained in:
Joey Hess 2012-10-02 13:45:30 -04:00
parent 613e747d91
commit 717e008390
3 changed files with 38 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Types/Group.hs
View file

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