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 Annex.Queue
import Backend
command :: [Command]
command = [Command "lock" paramPaths needsRepo seek "undo unlock command"]
command = [Command "lock" paramPaths defaultChecks seek "undo unlock command"]
seek :: [CommandSeek]
seek = [withFilesUnlocked start, withFilesUnlockedToBeCommitted start]