From 4372021a0e4c7c1649ae3908b91bb615a36bbdc8 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 1 Feb 2024 11:29:18 +0900
Subject: [PATCH] enlarging rtt for CI

---
 core/Network/TLS/Handshake/Common13.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/Network/TLS/Handshake/Common13.hs b/core/Network/TLS/Handshake/Common13.hs
index d14e87ae5..6aee5ee9f 100644
--- a/core/Network/TLS/Handshake/Common13.hs
+++ b/core/Network/TLS/Handshake/Common13.hs
@@ -590,5 +590,5 @@ setRTT :: Context -> Millisecond -> IO ()
 setRTT ctx chSentTime = do
     shRecvTime <- getCurrentTimeFromBase
     let rtt' = shRecvTime - chSentTime
-        rtt = if rtt' == 0 then 5 else rtt'
+        rtt = if rtt' == 0 then 10 else rtt'
     modifyTLS13State ctx $ \st -> st{tls13stRTT = rtt}