From 735719aaa7bccc448a4a032db6b9c0ad785db879 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Sat, 13 Nov 2021 11:26:15 -0500
Subject: [PATCH] runConnection can now accept any type of Connection

---
 src/Network/GemServ.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Network/GemServ.hs b/src/Network/GemServ.hs
index 64b7263..c6a6f7c 100644
--- a/src/Network/GemServ.hs
+++ b/src/Network/GemServ.hs
@@ -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 ()