git-annex/Command/CalcKey.hs

{- git-annex command
 -
 - Copyright 2016 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Command.CalcKey where

import Command
import Backend (genKey)
import Types.KeySource
import Utility.Metered

cmd :: Command
cmd = noCommit $ noMessages $ dontCheck repoExists $
	command "calckey" SectionPlumbing 
		"calulate key for a file"
		(paramRepeating paramFile)
		(batchable run (pure ()))

run :: () -> String -> Annex Bool
run _ file = genKey ks nullMeterUpdate Nothing >>= \case
	Just (k, _) -> do
		liftIO $ putStrLn $ serializeKey k
		return True
	Nothing -> return False
  where
	ks = KeySource file' file' Nothing
	file' = toRawFilePath file