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

ui for selecting a repository group

Browse source
This commit is contained in:
Joey Hess 2012-10-10 16:23:41 -04:00
parent 39be7eea40
commit 4e2e08b45a
4 changed files with 28 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Logs/Group.hs
View file

@ -68,9 +68,7 @@ makeGroupMap byuuid = GroupMap byuuid bygroup
explode (u, s) = map (\g -> (g, S.singleton u)) (S.toList s)
{- If a repository is in exactly one standard group, returns it. -}
getStandardGroup :: UUID -> GroupMap -> Maybe StandardGroup
getStandardGroup u m = maybe Nothing go $ u `M.lookup` groupsByUUID m
where
go s = case catMaybes $ map toStandardGroup $ S.toList s of
[g] -> Just g
_ -> Nothing
getStandardGroup :: S.Set Group -> Maybe StandardGroup
getStandardGroup s = case catMaybes $ map toStandardGroup $ S.toList s of
[g] -> Just g
_ -> Nothing