diff options
Diffstat (limited to 'Command/RegisterUrl.hs')
| -rw-r--r-- | Command/RegisterUrl.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Command/RegisterUrl.hs b/Command/RegisterUrl.hs index 4282db58a..16489c094 100644 --- a/Command/RegisterUrl.hs +++ b/Command/RegisterUrl.hs @@ -15,12 +15,14 @@ import Logs.Web import Annex.UUID import Command.FromKey (mkKey) -cmd :: [Command] -cmd = [notDirect $ notBareRepo $ - command "registerurl" (paramPair paramKey paramUrl) seek - SectionPlumbing "registers an url for a key"] - -seek :: CommandSeek +cmd :: Command +cmd = notDirect $ notBareRepo $ + command "registerurl" + SectionPlumbing "registers an url for a key" + (paramPair paramKey paramUrl) + (withParams seek) + +seek :: CmdParams -> CommandSeek seek = withWords start start :: [String] -> CommandStart |