summaryrefslogtreecommitdiff
path: root/Command/RegisterUrl.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/RegisterUrl.hs')
-rw-r--r--Command/RegisterUrl.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/RegisterUrl.hs b/Command/RegisterUrl.hs
index bac5b7740..16489c094 100644
--- a/Command/RegisterUrl.hs
+++ b/Command/RegisterUrl.hs
@@ -17,10 +17,12 @@ import Command.FromKey (mkKey)
cmd :: Command
cmd = notDirect $ notBareRepo $
- command "registerurl" (paramPair paramKey paramUrl) seek
+ command "registerurl"
SectionPlumbing "registers an url for a key"
+ (paramPair paramKey paramUrl)
+ (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = withWords start
start :: [String] -> CommandStart