diff options
Diffstat (limited to 'Command/RegisterUrl.hs')
| -rw-r--r-- | Command/RegisterUrl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/RegisterUrl.hs b/Command/RegisterUrl.hs index 28dd2d8c5..008e6436c 100644 --- a/Command/RegisterUrl.hs +++ b/Command/RegisterUrl.hs @@ -35,7 +35,7 @@ start [] = do start _ = giveup "specify a key and an url" massAdd :: CommandPerform -massAdd = go True =<< map (separate (== ' ')) . lines <$> liftIO getContents +massAdd = go True =<< map (separate (== ' ')) <$> batchLines where go status [] = next $ return status go status ((keyname,u):rest) | not (null keyname) && not (null u) = do |