@@ -309,12 +309,13 @@ getter tlsset@TLSSettings{..} sock params = do
309309 return (mkConn tlsset s params, sa)
310310
311311mkConn :: TLS.TLSParams params => TLSSettings -> Socket -> params -> IO (Connection, Transport)
312−mkConn tlsset s params = do
313− firstBS <- safeRecv s 4096
314− (if not (S.null firstBS) && S.head firstBS == 0x16 then
315− httpOverTls tlsset s firstBS params
316− else
317− plainHTTP tlsset s firstBS) `onException` sClose s
312+mkConn tlsset s params =
313+ ( do firstBS <- safeRecv s 4096
314+ if not (S.null firstBS) && S.head firstBS == 0x16 then
315+ httpOverTls tlsset s firstBS params
316+ else
317+ plainHTTP tlsset s firstBS
318+ ) `onException` sClose s
318319
319320----------------------------------------------------------------
320321