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

@ -13,7 +13,7 @@ import qualified Build.SysConfig as SysConfig
import Annex.Version
command :: [Command]
command = [Command "version" paramNothing needsNothing seek "show version info"]
command = [Command "version" paramNothing noChecks seek "show version info"]
seek :: [CommandSeek]
seek = [withNothing start]