diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-09-05 12:26:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-05 12:26:59 -0400 |
| commit | fe139f3db79a5149e9a174f81daad483ec6562db (patch) | |
| tree | 4a555890d842659df3e3c163e442741603fd3510 /Command/ExamineKey.hs | |
| parent | 2e57983f9c887d1841282e335aaca301680b2bbc (diff) | |
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.
Diffstat (limited to 'Command/ExamineKey.hs')
| -rw-r--r-- | Command/ExamineKey.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/ExamineKey.hs b/Command/ExamineKey.hs index 5f67587a8..e14ac10b8 100644 --- a/Command/ExamineKey.hs +++ b/Command/ExamineKey.hs @@ -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 |