summaryrefslogtreecommitdiff
path: root/Utility/Gpg.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-09-04 23:16:33 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-09-04 23:16:33 -0400
commitebe2ebbcaf82ef3377fae220581c00785a5940fe (patch)
tree8254dd3ea112155be459311e7e9e0bb3f123c8d6 /Utility/Gpg.hs
parent12b7ec4527383dffcc08524571c014e58315fdc3 (diff)
keep Utility.Gpg free of dependencies on git-annex
Diffstat (limited to 'Utility/Gpg.hs')
-rw-r--r--Utility/Gpg.hs24
1 files changed, 1 insertions, 23 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs
index 5056e1ce2..e27de7218 100644
--- a/Utility/Gpg.hs
+++ b/Utility/Gpg.hs
@@ -5,7 +5,7 @@
- Licensed under the GNU GPL version 3 or higher.
-}
-{-# LANGUAGE CPP, FlexibleInstances #-}
+{-# LANGUAGE CPP #-}
module Utility.Gpg where
@@ -24,10 +24,6 @@ import Utility.Env
import Utility.Tmp
#endif
-import qualified Data.Map as M
-import Types.GitConfig
-import Types.Remote hiding (setup)
-
newtype KeyIds = KeyIds { keyIds :: [String] }
deriving (Ord, Eq)
@@ -36,28 +32,10 @@ newtype KeyIds = KeyIds { keyIds :: [String] }
gpgcmd :: FilePath
gpgcmd = fromMaybe "gpg" SysConfig.gpg
-{- Return some options suitable for GnuPG encryption, symmetric or not. -}
-class LensGpgEncParams a where getGpgEncParams :: a -> [CommandParam]
-
-{- Extract the GnuPG options from a pair of a Remote Config and a Remote
- - Git Config. If the remote is configured to use public-key encryption,
- - look up the recipient keys and add them to the option list. -}
-instance LensGpgEncParams (RemoteConfig, RemoteGitConfig) where
- getGpgEncParams (c,gc) = map Param (remoteAnnexGnupgOptions gc) ++ recipients
- where
- recipients = case M.lookup "encryption" c of
- Just "pubkey" -> pkEncTo $ maybe [] (split ",") $
- M.lookup "cipherkeys" c
- _ -> []
-
-- Generate an argument list to asymetrically encrypt to the given recipients.
pkEncTo :: [String] -> [CommandParam]
pkEncTo = concatMap (\r -> [Param "--recipient", Param r])
-{- Extract the GnuPG options from a Remote. -}
-instance LensGpgEncParams (RemoteA a) where
- getGpgEncParams r = getGpgEncParams (config r, gitconfig r)
-
stdParams :: [CommandParam] -> IO [String]
stdParams params = do
#ifndef mingw32_HOST_OS