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 qualified Network.Socket as S
import Network.TLS (ServerParams, onClientCertificate, serverHooks) import Network.TLS (ServerParams, onClientCertificate, serverHooks)
import System.IO.Streams.TCP (bindAndListen) 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.Internal
import Network.GemServ.Types import Network.GemServ.Types
@ -209,7 +209,7 @@ adjustServerParams certRef params = let
in params { serverHooks = hooks' } in params { serverHooks = hooks' }
runConnection runConnection
:: TLSConnection :: C.Connection a
-> GemHandler -> GemHandler
-> Maybe Certificate -> Maybe Certificate
-> IO () -> IO ()