More commands work in direct mode repositories: find, whereis, move, copy, drop, log.

These started working, for free, once lookupFile supported direct mode.

yay!!

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 ->

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

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

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]

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

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]