summaryrefslogtreecommitdiff
path: root/Command/Semitrust.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Semitrust.hs')
-rw-r--r--Command/Semitrust.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Semitrust.hs b/Command/Semitrust.hs
index e64d418f8..fc1bcbbcd 100644
--- a/Command/Semitrust.hs
+++ b/Command/Semitrust.hs
@@ -24,9 +24,9 @@ start :: CommandStartString
start name = notBareRepo $ do
showStart "semitrust" name
u <- Remote.nameToUUID name
- return $ Just $ perform u
+ next $ perform u
perform :: UUID -> CommandPerform
perform uuid = do
trustSet uuid SemiTrusted
- return $ Just $ return True
+ next $ return True