examimekey: Allow being run in a git repo that is not initialized by git-annex yet.
No reason not to; indeed there's no real reason to need a git repository at all except the implementation uses the Annex monad.
This commit is contained in:
parent
f1a9c5f248
commit
5d70eaacaf
2 changed files with 8 additions and 5 deletions
|
@ -12,11 +12,12 @@ import qualified Utility.Format
|
|||
import Command.Find (parseFormatOption, showFormatted, keyVars)
|
||||
|
||||
cmd :: Command
|
||||
cmd = noCommit $ noMessages $ withGlobalOptions [jsonOption] $
|
||||
command "examinekey" SectionPlumbing
|
||||
"prints information from a key"
|
||||
(paramRepeating paramKey)
|
||||
(batchable run (optional parseFormatOption))
|
||||
cmd = noCommit $ noMessages $ dontCheck repoExists $
|
||||
withGlobalOptions [jsonOption] $
|
||||
command "examinekey" SectionPlumbing
|
||||
"prints information from a key"
|
||||
(paramRepeating paramKey)
|
||||
(batchable run (optional parseFormatOption))
|
||||
|
||||
run :: Maybe Utility.Format.Format -> String -> Annex Bool
|
||||
run format p = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue