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

@ -28,7 +28,7 @@ import qualified Annex.Branch
import Annex.CatFile
command :: [Command]
command = [Command "unused" paramNothing needsRepo seek
command = [Command "unused" paramNothing (noTo >> needsRepo) seek
"look for unused file content"]
seek :: [CommandSeek]