exposing getClientCertificateChain.

haskell-tls · Nov 27, 2019 · 5926aeb · 5926aeb
1 parent e054aaa
commit 5926aeb
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/core/Network/TLS.hs b/core/Network/TLS.hs
@@ -107,6 +107,7 @@ module Network.TLS
     , unClientRandom
     , unServerRandom
     , HandshakeMode13(..)
+    , getClientCertificateChain
     -- ** Negotiated
     , getNegotiatedProtocol
     , getClientSNI
@@ -168,6 +169,7 @@ import Network.TLS.Hooks
 import Network.TLS.Measurement
 import Network.TLS.Parameters
 import Network.TLS.Session
+import qualified Network.TLS.State as S
 import Network.TLS.Struct ( TLSError(..), TLSException(..)
                           , HashAndSignatureAlgorithm, HashAlgorithm(..), SignatureAlgorithm(..)
                           , Header(..), ProtocolType(..), CertificateType(..)
@@ -184,3 +186,6 @@ import Data.X509.Validation hiding (HostName)
 
 {-# DEPRECATED Bytes "Use Data.ByteString.Bytestring instead of Bytes." #-}
 type Bytes = B.ByteString
+
+getClientCertificateChain :: Context -> IO (Maybe CertificateChain)
+getClientCertificateChain ctx = usingState_ ctx S.getClientCertificateChain