summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
Diffstat (limited to 'Command')
-rw-r--r--Command/Copy.hs5
-rw-r--r--Command/Drop.hs2
-rw-r--r--Command/Find.hs2
-rw-r--r--Command/Log.hs2
-rw-r--r--Command/Move.hs2
-rw-r--r--Command/Whereis.hs2
6 files changed, 7 insertions, 8 deletions
diff --git a/Command/Copy.hs b/Command/Copy.hs
index 08c95369b..6967c2f93 100644
--- a/Command/Copy.hs
+++ b/Command/Copy.hs
@@ -14,9 +14,8 @@ import qualified Remote
import Annex.Wanted
def :: [Command]
-def = [notDirect $
- withOptions Command.Move.options $ command "copy" paramPaths seek
- "copy content of files to/from another repository"]
+def = [withOptions Command.Move.options $ command "copy" paramPaths seek
+ "copy content of files to/from another repository"]
seek :: [CommandSeek]
seek = [withField Command.Move.toOption Remote.byName $ \to ->
diff --git a/Command/Drop.hs b/Command/Drop.hs
index cb38275bf..3a30703d5 100644
--- a/Command/Drop.hs
+++ b/Command/Drop.hs
@@ -20,7 +20,7 @@ import qualified Option
import Annex.Wanted
def :: [Command]
-def = [notDirect $ withOptions [fromOption] $ command "drop" paramPaths seek
+def = [withOptions [fromOption] $ command "drop" paramPaths seek
"indicate content of files not currently wanted"]
fromOption :: Option
diff --git a/Command/Find.hs b/Command/Find.hs
index 8090f11c6..96f47ec87 100644
--- a/Command/Find.hs
+++ b/Command/Find.hs
@@ -20,7 +20,7 @@ import Types.Key
import qualified Option
def :: [Command]
-def = [notDirect $ noCommit $ withOptions [formatOption, print0Option] $
+def = [noCommit $ withOptions [formatOption, print0Option] $
command "find" paramPaths seek "lists available files"]
formatOption :: Option
diff --git a/Command/Log.hs b/Command/Log.hs
index b20d17674..6608a9906 100644
--- a/Command/Log.hs
+++ b/Command/Log.hs
@@ -36,7 +36,7 @@ data RefChange = RefChange
type Outputter = Bool -> POSIXTime -> [UUID] -> Annex ()
def :: [Command]
-def = [notDirect $ withOptions options $
+def = [withOptions options $
command "log" paramPaths seek "shows location log"]
options :: [Option]
diff --git a/Command/Move.hs b/Command/Move.hs
index 80b362c8a..316e4192e 100644
--- a/Command/Move.hs
+++ b/Command/Move.hs
@@ -19,7 +19,7 @@ import Logs.Presence
import Logs.Transfer
def :: [Command]
-def = [notDirect $ withOptions options $ command "move" paramPaths seek
+def = [withOptions options $ command "move" paramPaths seek
"move content of files to/from another repository"]
fromOption :: Option
diff --git a/Command/Whereis.hs b/Command/Whereis.hs
index 6c60ab19d..251c4ec7a 100644
--- a/Command/Whereis.hs
+++ b/Command/Whereis.hs
@@ -15,7 +15,7 @@ import Remote
import Logs.Trust
def :: [Command]
-def = [notDirect $ noCommit $ command "whereis" paramPaths seek
+def = [noCommit $ command "whereis" paramPaths seek
"lists repositories that have file content"]
seek :: [CommandSeek]