diff options
Diffstat (limited to 'Command/RegisterUrl.hs')
-rw-r--r-- | Command/RegisterUrl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/RegisterUrl.hs b/Command/RegisterUrl.hs index 008e6436c..ef73e6728 100644 --- a/Command/RegisterUrl.hs +++ b/Command/RegisterUrl.hs @@ -27,10 +27,10 @@ seek = withWords start start :: [String] -> CommandStart start (keyname:url:[]) = do let key = mkKey keyname - showStart "registerurl" url + showStart' "registerurl" (Just url) next $ perform key url start [] = do - showStart "registerurl" "stdin" + showStart' "registerurl" (Just "stdin") next massAdd start _ = giveup "specify a key and an url" |