diff options
Diffstat (limited to 'Command/Ungroup.hs')
-rw-r--r-- | Command/Ungroup.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |