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

simplify

Browse source
This commit is contained in:
Joey Hess 2012-10-01 15:17:21 -04:00
parent 2a96b1aab3
commit 5bd5bc094a
3 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Group.hs
View file

@ -30,6 +30,5 @@ start _ = error "Specify a repository and a group."
perform :: UUID -> Group -> CommandPerform
perform uuid g = do
s <- lookupGroups uuid
groupSet uuid (S.insert g s)
groupChange uuid (S.insert g)
next $ return True

3
Command/Ungroup.hs
View file

@ -30,6 +30,5 @@ start _ = error "Specify a repository and a group."
perform :: UUID -> Group -> CommandPerform
perform uuid g = do
s <- lookupGroups uuid
groupSet uuid (S.delete g s)
groupChange uuid (S.delete g)
next $ return True