mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
Command/DropUnused.hs
View file

@ -21,8 +21,8 @@ import Types.Key
type UnusedMap = M.Map String Key
command :: [Command]
command = [Command "dropunused" (paramRepeating paramNumber) needsRepo seek
"drop unused file content"]
command = [Command "dropunused" (paramRepeating paramNumber) (noTo >> needsRepo)
seek "drop unused file content"]
seek :: [CommandSeek]
seek = [withUnusedMaps]