diff options
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 |