From 6518f90697c2fa53e36d5c52124ad77ba8091c4b Mon Sep 17 00:00:00 2001 From: tom-audm Date: Tue, 9 Jul 2019 10:51:13 -0400 Subject: [PATCH] Fix TLS compatibility with newest versions of 'network' --- src/Snap/Internal/Http/Server/TLS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Snap/Internal/Http/Server/TLS.hs b/src/Snap/Internal/Http/Server/TLS.hs index 551966f5..b2f2a756 100644 --- a/src/Snap/Internal/Http/Server/TLS.hs +++ b/src/Snap/Internal/Http/Server/TLS.hs @@ -21,7 +21,7 @@ import Network.Socket (Socket) import Control.Exception (Exception, bracketOnError, finally, onException, throwIO) import Control.Monad (when) import Data.ByteString.Builder (byteString) -import qualified Network.Socket as Socket +import qualified Snap.Internal.Http.Server.Socket as Socket import OpenSSL (withOpenSSL) import OpenSSL.Session (SSL, SSLContext) import qualified OpenSSL.Session as SSL