From f90490c4f36d9354e004985621e5ebd767e62496 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 20 Mar 2015 11:44:46 -0400 Subject: checkpresentkey: New plumbing command to check if a key can be verified to be present on a remote. --- Command/CheckPresentKey.hs | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 Command/CheckPresentKey.hs (limited to 'Command') diff --git a/Command/CheckPresentKey.hs b/Command/CheckPresentKey.hs new file mode 100644 index 000000000..ad61ba3c0 --- /dev/null +++ b/Command/CheckPresentKey.hs @@ -0,0 +1,36 @@ +{- git-annex command + - + - Copyright 2015 Joey Hess + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Command.CheckPresentKey where + +import Common.Annex +import Command +import Types.Key +import qualified Remote +import Annex +import Types.Messages + +cmd :: [Command] +cmd = [noCommit $ command "checkpresentkey" (paramPair paramKey paramRemote) seek + SectionPlumbing "check if key is present in remote"] + +seek :: CommandSeek +seek = withWords start + +start :: [String] -> CommandStart +start (ks:rn:[]) = do + setOutput QuietOutput + maybe (error "Unknown remote") (go <=< flip Remote.hasKey k) + =<< Remote.byNameWithUUID (Just rn) + where + k = fromMaybe (error "bad key") (file2key ks) + go (Right True) = liftIO exitSuccess + go (Right False) = liftIO exitFailure + go (Left e) = liftIO $ do + hPutStrLn stderr e + exitWith $ ExitFailure 100 +start _ = error "Wrong number of parameters" -- cgit v1.2.3