From 73d1a4eb451c089878ba95e96371d0b18287ffb8 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 7 Aug 2023 16:05:02 +0900
Subject: [PATCH] catching up to tls 1.8.0

---
 http-client-tls/Network/HTTP/Client/TLS.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/http-client-tls/Network/HTTP/Client/TLS.hs b/http-client-tls/Network/HTTP/Client/TLS.hs
index 75d308cf..cb8ce682 100644
--- a/http-client-tls/Network/HTTP/Client/TLS.hs
+++ b/http-client-tls/Network/HTTP/Client/TLS.hs
@@ -91,13 +91,19 @@ mkManagerSettingsContext' set mcontext tls sockHTTP sockHTTPS = set
     , managerRetryableException = \e ->
         case () of
             ()
+#if MIN_VERSION_tls(1,8,0)
+                | ((fromException e)::(Maybe TLS.TLSException))==Just (TLS.PostHandshake TLS.Error_EOF) -> True
+#else
                 | ((fromException e)::(Maybe TLS.TLSError))==Just TLS.Error_EOF -> True
+#endif
                 | otherwise -> managerRetryableException defaultManagerSettings e
     , managerWrapException = \req ->
         let wrapper se
               | Just (_ :: IOException)          <- fromException se = se'
               | Just (_ :: TLS.TLSException)     <- fromException se = se'
+#if !MIN_VERSION_tls(1,8,0)
               | Just (_ :: TLS.TLSError)         <- fromException se = se'
+#endif
               | Just (_ :: NC.LineTooLong)       <- fromException se = se'
               | Just (_ :: NC.HostNotResolved)   <- fromException se = se'
               | Just (_ :: NC.HostCannotConnect) <- fromException se = se'