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:
parent
1c83b6c439
commit
b68eee625f
9 changed files with 15 additions and 16 deletions
|
@ -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 ->
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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]
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue