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

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

yay!!
This commit is contained in:
Joey Hess 2013-01-05 17:16:58 -04:00
parent 1c83b6c439
commit b68eee625f
9 changed files with 15 additions and 16 deletions

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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