From 82ee689db44ebabca2ecd093f9da40ef46fbc067 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 20 Mar 2015 11:22:27 -0400 Subject: readpresentkey: New plumbing command for checking location log. --- Command/ReadPresentKey.hs | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 Command/ReadPresentKey.hs (limited to 'Command') diff --git a/Command/ReadPresentKey.hs b/Command/ReadPresentKey.hs new file mode 100644 index 000000000..8125ddf7e --- /dev/null +++ b/Command/ReadPresentKey.hs @@ -0,0 +1,30 @@ +{- git-annex command + - + - Copyright 2015 Joey Hess + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Command.ReadPresentKey where + +import Common.Annex +import Command +import Logs.Location +import Types.Key + +cmd :: [Command] +cmd = [noCommit $ command "readpresentkey" (paramPair paramKey paramUUID) seek + SectionPlumbing "read records of where key is present"] + +seek :: CommandSeek +seek = withWords start + +start :: [String] -> CommandStart +start (ks:us:[]) = do + ls <- loggedLocations k + if toUUID us `elem` ls + then liftIO exitSuccess + else liftIO exitFailure + where + k = fromMaybe (error "bad key") (file2key ks) +start _ = error "Wrong number of parameters" -- cgit v1.2.3