summaryrefslogtreecommitdiff
path: root/Command/AddUnused.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-12-29 14:28:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-12-29 14:28:19 -0400
commitee3407de64d52d91500c6b761ad45c7a22eb73cb (patch)
tree5740f4e2c706f033d1a18602eb7e9148f6a1f365 /Command/AddUnused.hs
parent1b007068ca4936306889b8b3af2bf224746a2318 (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.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/AddUnused.hs b/Command/AddUnused.hs
index 519c67e1b..23dbdfcca 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