runConnection can now accept any type of Connection
This commit is contained in:
parent
6247595145
commit
735719aaa7
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user