diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-05 17:16:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-05 17:17:04 -0400 |
| commit | ed66c698e62ac72a4db60a60365e52a18c3caae3 (patch) | |
| tree | 1e7b05ae8ef8be8e1b42d475662e8ab35bd00e87 /Command | |
| parent | a5031031f0d596b2381a785925beb574d90a862e (diff) | |
More commands work in direct mode repositories: find, whereis, move, copy, drop, log.
These started working, for free, once lookupFile supported direct mode.
yay!!
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Copy.hs | 5 | ||||
| -rw-r--r-- | Command/Drop.hs | 2 | ||||
| -rw-r--r-- | Command/Find.hs | 2 | ||||
| -rw-r--r-- | Command/Log.hs | 2 | ||||
| -rw-r--r-- | Command/Move.hs | 2 | ||||
| -rw-r--r-- | Command/Whereis.hs | 2 |
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] |