diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-03-15 14:37:33 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-03-15 14:37:33 -0400 |
commit | a29ec4336c45000635aae179ae64123b9e78a9b0 (patch) | |
tree | be10c80b69d8b507a3e337e735219fc1ce019f50 /Command/FromKey.hs | |
parent | 96af58d9e0f73ad78f09651e855b20cc27f9113a (diff) |
registerurl: New plumbing command for mass-adding urls to keys.
Diffstat (limited to 'Command/FromKey.hs')
-rw-r--r-- | Command/FromKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index d18fa16cc..10484b840 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -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 |