summaryrefslogtreecommitdiff
path: root/Command/Semitrust.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Semitrust.hs')
-rw-r--r--Command/Semitrust.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/Semitrust.hs b/Command/Semitrust.hs
index 3ef2621e0..d9ee89394 100644
--- a/Command/Semitrust.hs
+++ b/Command/Semitrust.hs
@@ -12,8 +12,9 @@ import Types.TrustLevel
import Command.Trust (trustCommand)
cmd :: Command
-cmd = command "semitrust" (paramRepeating paramRemote) seek
- SectionSetup "return repository to default trust level"
+cmd = command "semitrust" SectionSetup
+ "return repository to default trust level"
+ (paramRepeating paramRemote) (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = trustCommand "semitrust" SemiTrusted