registerurl: New plumbing command for mass-adding urls to keys.
This commit is contained in:
parent
b24bb6b435
commit
abfe3c09b2
5 changed files with 69 additions and 1 deletions
|
@ -49,7 +49,7 @@ massAdd = go True =<< map words . lines <$> liftIO getContents
|
|||
ok <- perform' key f
|
||||
let !status' = status && ok
|
||||
go status' rest
|
||||
go status (_:rest) = error "Expected pairs of key and file on stdin, but got something else."
|
||||
go _ _ = error "Expected pairs of key and file on stdin, but got something else."
|
||||
|
||||
perform :: Key -> FilePath -> CommandPerform
|
||||
perform key file = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue