diff options
Diffstat (limited to 'Command/ExamineKey.hs')
| -rw-r--r-- | Command/ExamineKey.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Command/ExamineKey.hs b/Command/ExamineKey.hs index 05db9817a..e0a1d9747 100644 --- a/Command/ExamineKey.hs +++ b/Command/ExamineKey.hs @@ -11,15 +11,16 @@ import Common.Annex import Command import CmdLine.Batch import qualified Utility.Format -import Command.Find (formatOption, getFormat, showFormatted, keyVars) +import Command.Find (FindOptions(..), showFormatted, keyVars) import Types.Key -cmd :: [Command] -cmd = [noCommit $ noMessages $ withOptions [formatOption, jsonOption, batchOption] $ - command "examinekey" (paramRepeating paramKey) seek - SectionPlumbing "prints information from a key"] +cmd :: Command +cmd = noCommit $ noMessages $ withOptions [formatOption, jsonOption, batchOption] $ + command "examinekey" SectionPlumbing + "prints information from a key" + (paramRepeating paramKey) (withParams seek) -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek ps = do format <- getFormat batchable withKeys (start format) ps |