rtt

haskell-tls · Jan 26, 2024 · 80136f0 · 80136f0
1 parent 4f586ba
commit 80136f0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/core/Network/TLS/Core.hs b/core/Network/TLS/Core.hs
@@ -79,7 +79,7 @@ handshake ctx = do
                 Just dat -> modifyTLS13State ctx $ \st -> st{tls13stPendingRecvData = Just dat}
 
 rttFactor :: Int
-rttFactor = 2
+rttFactor = 3
 
 getRTT :: Context -> IO Int
 getRTT ctx = do

diff --git a/core/Network/TLS/Handshake/Common13.hs b/core/Network/TLS/Handshake/Common13.hs
@@ -586,4 +586,5 @@ setRTT ctx t0 = do
     t1 <- getUnixTime
     let UnixDiffTime (CTime s) u = t1 `diffUnixTime` t0
         rtt = fromIntegral s * 1000000 + fromIntegral u
+    when (rtt == 0) $ throwCore $ Error_Misc "RTT is 0"
     modifyTLS13State ctx $ \st -> st{tls13stRTT = rtt}