Fail if --from or --to is passed to commands that do not support them.

This commit is contained in:
Joey Hess 2011-10-27 18:56:54 -04:00
parent c879eb873e
commit b955238ec7
36 changed files with 58 additions and 46 deletions

View file

@ -23,7 +23,7 @@ import qualified Utility.Dot as Dot
data Link = Link Git.Repo Git.Repo
command :: [Command]
command = [Command "map" paramNothing needsNothing seek
command = [Command "map" paramNothing noChecks seek
"generate map of repositories"]
seek :: [CommandSeek]