summaryrefslogtreecommitdiff
path: root/Command/Trust.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Trust.hs')
-rw-r--r--Command/Trust.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/Command/Trust.hs b/Command/Trust.hs
index 9d380990e..33ecc2e64 100644
--- a/Command/Trust.hs
+++ b/Command/Trust.hs
@@ -16,14 +16,14 @@ import Logs.Group
import qualified Data.Set as S
-cmd :: [Command]
-cmd = [command "trust" (paramRepeating paramRemote) seek
- SectionSetup "trust a repository"]
+cmd :: Command
+cmd = command "trust" SectionSetup "trust a repository"
+ (paramRepeating paramRemote) (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = trustCommand "trust" Trusted
-trustCommand :: String -> TrustLevel -> CommandSeek
+trustCommand :: String -> TrustLevel -> CmdParams -> CommandSeek
trustCommand c level = withWords start
where
start ws = do