module Network.QUIC.Server (
run
, stop
, ServerConfig
, defaultServerConfig
, scAddresses
, scALPN
, scRequireRetry
, scUse0RTT
, scCiphers
, scGroups
, scVersions
, scCredentials
, scSessionManager
, clientCertificateChain
) where
import Data.X509 (CertificateChain)
import Network.QUIC.Config
import Network.QUIC.Connection
import Network.QUIC.Connector
import Network.QUIC.Server.Run
clientCertificateChain :: Connection -> IO (Maybe CertificateChain)
clientCertificateChain :: Connection -> IO (Maybe CertificateChain)
clientCertificateChain Connection
conn
| forall a. Connector a => a -> Bool
isClient Connection
conn = forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
Nothing
| Bool
otherwise = Connection -> IO (Maybe CertificateChain)
getCertificateChain Connection
conn