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

show error message on unexpected parameters to commands that take none

Browse source 
Before it would exit nonzero w/o doing anything, which was confusing.
This commit is contained in:
Joey Hess 2011-05-28 20:01:45 -04:00
parent 8a4a3be9f6
commit a19d81a42e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command.hs
View file

@ -176,7 +176,7 @@ withTempFile :: CommandSeekStrings
withTempFile a params = return $ map a params
withNothing :: CommandSeekNothing
withNothing a [] = return [a]
withNothing _ _ = return []
withNothing _ _ = error "This command takes no parameters."
backendPairs :: CommandSeekBackendFiles
backendPairs a files = liftM (map a) $ Backend.chooseBackends files