diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,10 @@
 # ChangeLog
 
+## 3.4.18
+
+* warp-tls: build with warp before 3.4.18 again
+  [#1167](https://github.com/yesodweb/wai/pull/1167)
+
 ## 3.4.17
 
 Requires network 3.2.12.
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
@@ -59,11 +59,7 @@
 ) where
 
 import Control.Applicative ((<|>))
-#if MIN_VERSION_warp(3,4,13)
-import Control.Concurrent.STM (STM, TVar, check, newTVarIO, readTVar, registerDelay, retry)
-#else
-import Control.Concurrent.STM (STM, retry)
-#endif
+import Control.Concurrent.STM
 import Control.Exception (
     Exception,
     IOException,
@@ -88,10 +84,11 @@
     SockAddr,
     Socket,
     getSocketName,
+#if !MIN_VERSION_network(3,1,1) || !MIN_VERSION_warp(3,4,18)
+    close,
+#endif
 #if MIN_VERSION_network(3,1,1)
     gracefulClose,
-#else
-    close,
 #endif
     unsafeClose,
     withSocketsDo,
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.17
+Version:             3.4.18
 Synopsis:            HTTP over TLS support for Warp via the TLS package
 License:             MIT
 License-file:        LICENSE