diff options
| author | Joey Hess <joey@kitenet.net> | 2012-12-29 14:28:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-29 14:28:19 -0400 |
| commit | 2ce736ac50962106fabad06065126132020ced59 (patch) | |
| tree | 8c513a323d534998c9c0c37f42518a44a934fbed /Command/AddUnused.hs | |
| parent | 9f2150c7d36a6baa7e2b0c52b604c6659781b929 (diff) | |
block all commands that don't work in direct mode
I left status working in direct mode, although it doesn't show correct
stats for known annex keys.
Diffstat (limited to 'Command/AddUnused.hs')
| -rw-r--r-- | Command/AddUnused.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/AddUnused.hs b/Command/AddUnused.hs index 519c67e1b2..23dbdfcca1 100644 --- a/Command/AddUnused.hs +++ b/Command/AddUnused.hs @@ -14,14 +14,16 @@ import qualified Command.Add import Types.Key def :: [Command] -def = [command "addunused" (paramRepeating paramNumRange) +def = [notDirect $ command "addunused" (paramRepeating paramNumRange) seek "add back unused files"] seek :: [CommandSeek] seek = [withUnusedMaps start] start :: UnusedMaps -> Int -> CommandStart -start = startUnused "addunused" perform (performOther "bad") (performOther "tmp") +start = startUnused "addunused" perform + (performOther "bad") + (performOther "tmp") perform :: Key -> CommandPerform perform key = next $ Command.Add.cleanup file key True |