jlamothe/gemcap
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Network/GemServ.hs
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 ()