print info after HTML for 0RTT

kazu-yamamoto · Apr 19, 2024 · 5c32abb · 5c32abb
1 parent e329b6d
commit 5c32abb
Showing 1 changed file with 11 additions and 4 deletions.
diff --git a/tls/util/tls-client.hs b/tls/util/tls-client.hs
@@ -234,10 +234,17 @@ runClient2 Options{..} cparams aux@Aux{..} paths = do
     auxDebug "<<<< next connection >>>>"
     auxDebug "------------------------"
     runTLS cparams aux $ \ctx -> do
-        i <- getInfo ctx
-        when optDebugLog $ printHandshakeInfo i
-        void $ client aux paths ctx
-        return i
+        if opt0RTT
+            then do
+                void $ client aux paths ctx
+                i <- getInfo ctx
+                when optDebugLog $ printHandshakeInfo i
+                return i
+            else do
+                i <- getInfo ctx
+                when optDebugLog $ printHandshakeInfo i
+                void $ client aux paths ctx
+                return i
 
 runTLS
     :: ClientParams