mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
Command/FromKey.hs
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