runConnection can now accept any type of Connection

This commit is contained in:
Jonathan Lamothe 2021-11-13 11:26:15 -05:00
parent 6247595145
commit 735719aaa7

View File

@ -59,7 +59,7 @@ import Data.X509 (Certificate, CertificateChain (..), getSigned, signedObject)
import qualified Network.Socket as S
import Network.TLS (ServerParams, onClientCertificate, serverHooks)
import System.IO.Streams.TCP (bindAndListen)
import System.IO.Streams.TLS (TLSConnection, accept)
import System.IO.Streams.TLS (accept)
import Network.GemServ.Internal
import Network.GemServ.Types
@ -209,7 +209,7 @@ adjustServerParams certRef params = let
in params { serverHooks = hooks' }
runConnection
:: TLSConnection
:: C.Connection a
-> GemHandler
-> Maybe Certificate
-> IO ()