diff options
Diffstat (limited to 'Command')
-rw-r--r-- | Command/ReadPresentKey.hs | 30 |
1 files changed, 30 insertions, 0 deletions
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 <id@joeyh.name> + - + - 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" |