From de7e70d424da07993fbf3efcccbdb8b1d8bff82d Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 10 May 2020 12:36:22 -0400 Subject: Added HasCallStack to keyParam error call. --- Data/OpenPGP/Util/Base.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Data') diff --git a/Data/OpenPGP/Util/Base.hs b/Data/OpenPGP/Util/Base.hs index 0c888ca..b43427c 100644 --- a/Data/OpenPGP/Util/Base.hs +++ b/Data/OpenPGP/Util/Base.hs @@ -30,6 +30,7 @@ import qualified Crypto.Types.PubKey.ECDSA as Vincent.ECDSA #endif import qualified Crypto.PubKey.RSA as Vincent.RSA import qualified Crypto.Random as Vincent +import GHC.Stack import Data.OpenPGP.Util.Fingerprint (fingerprint) @@ -85,7 +86,7 @@ find_key :: OpenPGP.Message -> String -> Maybe OpenPGP.Packet find_key = OpenPGP.find_key (show . fingerprint) -keyParam :: Char -> OpenPGP.Packet -> Integer +keyParam :: HasCallStack => Char -> OpenPGP.Packet -> Integer keyParam c k = fromJustMPI $ lookup c (OpenPGP.key k) where fromJustMPI :: Maybe OpenPGP.MPI -> Integer -- cgit v1.2.3