diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -2,6 +2,10 @@
 
 ## 3.4.1
 
+* Requiring warp v3.3.29.
+
+## 3.4.1
+
 * Supporting `tls` v1.8.0.
 
 ## 3.4.0
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
@@ -65,6 +65,7 @@
     gracefulClose,
 #endif
     withSocketsDo,
+    getSocketName,
  )
 import Network.Socket.BufferPool
 import Network.Socket.ByteString (sendAll)
@@ -302,7 +303,8 @@
     writeBufferRef <- I.newIORef writeBuffer
     -- Creating a cache for leftover input data.
     tls <- getTLSinfo ctx
-    return (conn ctx writeBufferRef isH2, tls)
+    mysa <- getSocketName s
+    return (conn ctx writeBufferRef isH2 mysa, tls)
   where
     backend recvN = TLS.Backend {
         TLS.backendFlush = return ()
@@ -320,7 +322,7 @@
         else Nothing)
       throwIO
       $ sendAll sock bs
-    conn ctx writeBufferRef isH2 = Connection {
+    conn ctx writeBufferRef isH2 mysa = Connection {
         connSendMany         = TLS.sendData ctx . L.fromChunks
       , connSendAll          = sendall
       , connSendFile         = sendfile
@@ -329,6 +331,7 @@
       , connRecvBuf          = \_ _ -> return True -- obsoleted
       , connWriteBuffer      = writeBufferRef
       , connHTTP2            = isH2
+      , connMySockAddr       = mysa
       }
       where
         sendall = TLS.sendData ctx . L.fromChunks . return
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:             3.4.1
+Version:             3.4.2
 Synopsis:            HTTP over TLS support for Warp via the TLS package
 License:             MIT
 License-file:        LICENSE
@@ -21,7 +21,7 @@
   Build-Depends:     base                          >= 4.12     && < 5
                    , bytestring                    >= 0.9
                    , wai                           >= 3.2      && < 3.3
-                   , warp                          >= 3.3.23   && < 3.4
+                   , warp                          >= 3.3.29   && < 3.4
                    , data-default-class            >= 0.0.1
                    , tls                           >= 1.7
                    , network                       >= 2.2.1