29 lines
671 B
Haskell
29 lines
671 B
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2013 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.LookupKey where
|
|
|
|
import Common.Annex
|
|
import Command
|
|
import CmdLine.Batch
|
|
import Annex.CatFile
|
|
import Types.Key
|
|
|
|
cmd :: Command
|
|
cmd = withOptions [batchOption] $ notBareRepo $ noCommit $ noMessages $
|
|
command "lookupkey" SectionPlumbing
|
|
"looks up key used for file"
|
|
(paramRepeating paramFile) (withParams seek)
|
|
|
|
seek :: CmdParams -> CommandSeek
|
|
seek = batchable withStrings start
|
|
|
|
start :: Batchable String
|
|
start batchmode file = do
|
|
maybe (batchBadInput batchmode) (liftIO . putStrLn . key2file)
|
|
=<< catKeyFile file
|
|
stop
|