diff --git a/Network/Wai/Handler/WarpTLS.hs b/Network/Wai/Handler/WarpTLS.hs
--- a/Network/Wai/Handler/WarpTLS.hs
+++ b/Network/Wai/Handler/WarpTLS.hs
@@ -121,7 +121,7 @@
                 { TLS.sharedCredentials = TLS.Credentials [credential]
                 }
             }
-    runSettingsConnectionMaker set (getter params) app
+    runSettingsConnectionMakerSecure set (getter params) app
   where
     getter params = do
         (s, sa) <- acceptSafe sock
@@ -171,14 +171,14 @@
                             , connBuffer = buf
                             , connBufferSize = bufferSize
                             }
-                    return conn
+                    return (conn, True)
                 else
                     case onInsecure of
                         AllowInsecure -> do
                             conn' <- socketConnection s
-                            return conn'
+                            return (conn'
                                     { connRecv = getNext $ fmap (fromMaybe B.empty) C.await
-                                    }
+                                    }, False)
                         DenyInsecure lbs -> do
                             let src = do
                                     C.yield "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\n\r\n"
diff --git a/warp-tls.cabal b/warp-tls.cabal
--- a/warp-tls.cabal
+++ b/warp-tls.cabal
@@ -1,5 +1,5 @@
 Name:                warp-tls
-Version:             2.0.3.2
+Version:             2.0.3.3
 Synopsis:            HTTP over SSL/TLS support for Warp via the TLS package
 License:             MIT
 License-file:        LICENSE
@@ -16,7 +16,7 @@
   Build-Depends:     base                          >= 4        && < 5
                    , bytestring                    >= 0.9
                    , wai                           >= 2.0      && < 2.2
-                   , warp                          >= 2.0.2    && < 2.2
+                   , warp                          >= 2.1.4    && < 2.2
                    , transformers                  >= 0.2
                    , conduit                       >= 0.5      && < 1.2
                    , conduit-extra