Fail if --from or --to is passed to commands that do not support them.
This commit is contained in:
parent
c879eb873e
commit
b955238ec7
36 changed files with 58 additions and 46 deletions
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue