Add helper to get info meant to be passed to users of tls

eyeinsky · Aug 20, 2019 · 64945ee · 64945ee
1 parent e9e3fcb
commit 64945ee
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/core/Network/TLS.hs b/core/Network/TLS.hs
@@ -73,6 +73,8 @@ module Network.TLS
     , HashAlgorithm(..)
     , SignatureAlgorithm(..)
     , CertificateType(..)
+    , getTlsAppInfo
+    , CertificateChain
 
     -- * X509
     -- ** X509 Validation

diff --git a/core/Network/TLS/Context.hs b/core/Network/TLS/Context.hs
@@ -34,6 +34,7 @@ module Network.TLS.Context
     , withWriteLock
     , withStateLock
     , withRWLock
+    , getTlsAppInfo
 
     -- * information
     , Information(..)
@@ -219,3 +220,5 @@ contextHookSetCertificateRecv context f =
 contextHookSetLogging :: Context -> Logging -> IO ()
 contextHookSetLogging context loggingCallbacks =
     contextModifyHooks context (\hooks -> hooks { hookLogging = loggingCallbacks })
+
+getTlsAppInfo = ctxClientCerts