diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-01 15:17:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-01 15:17:21 -0400 |
| commit | 041242f735a20027acfef10764398c208dc94183 (patch) | |
| tree | d2ad39f9ccfe85d0cc230ad6c43403c243339416 /Command | |
| parent | 59d2f363b7a2762978978bb3edf62aa47ef81abd (diff) | |
simplify
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Group.hs | 3 | ||||
| -rw-r--r-- | Command/Ungroup.hs | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/Command/Group.hs b/Command/Group.hs index 2952f2142..5513ca3f7 100644 --- a/Command/Group.hs +++ b/Command/Group.hs @@ -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 diff --git a/Command/Ungroup.hs b/Command/Ungroup.hs index 2161cec91..ea5b8edb6 100644 --- a/Command/Ungroup.hs +++ b/Command/Ungroup.hs @@ -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 |