diff options
Diffstat (limited to 'Data')
-rw-r--r-- | Data/OpenPGP/Util/Base.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
30 | #endif | 30 | #endif |
31 | import qualified Crypto.PubKey.RSA as Vincent.RSA | 31 | import qualified Crypto.PubKey.RSA as Vincent.RSA |
32 | import qualified Crypto.Random as Vincent | 32 | import qualified Crypto.Random as Vincent |
33 | import GHC.Stack | ||
33 | 34 | ||
34 | import Data.OpenPGP.Util.Fingerprint (fingerprint) | 35 | import Data.OpenPGP.Util.Fingerprint (fingerprint) |
35 | 36 | ||
@@ -85,7 +86,7 @@ find_key :: OpenPGP.Message -> String -> Maybe OpenPGP.Packet | |||
85 | find_key = OpenPGP.find_key (show . fingerprint) | 86 | find_key = OpenPGP.find_key (show . fingerprint) |
86 | 87 | ||
87 | 88 | ||
88 | keyParam :: Char -> OpenPGP.Packet -> Integer | 89 | keyParam :: HasCallStack => Char -> OpenPGP.Packet -> Integer |
89 | keyParam c k = fromJustMPI $ lookup c (OpenPGP.key k) | 90 | keyParam c k = fromJustMPI $ lookup c (OpenPGP.key k) |
90 | where | 91 | where |
91 | fromJustMPI :: Maybe OpenPGP.MPI -> Integer | 92 | fromJustMPI :: Maybe OpenPGP.MPI -> Integer |