registerurl: New plumbing command for mass-adding urls to keys.

This commit is contained in:
Joey Hess 2015-03-15 14:37:33 -04:00
parent b24bb6b435
commit abfe3c09b2
5 changed files with 69 additions and 1 deletions

View file

@ -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