@@ -61,13 +61,8 @@ runTLS tset set app = do
6161 (fromClient'', bs) <- fromClient' C.$$++ sink
6262 I.writeIORef ifromClient fromClient''
6363 return bs
64− if maybe False (B.all (\w -> w < 127 && w > 8) . B.take 5) firstBS
64+ if maybe False ((== 0x16) . fst) (firstBS >>= B.uncons)
6565 then do
66− let conn = (socketConnection s)
67− { connRecv = getNext $ fmap (fromMaybe B.empty) C.await
68− }
69− return (conn, sa)
70− else do
7166 gen <- newGenIO
7267 ctx <- TLS.serverWith
7368 params
@@ -89,6 +84,11 @@ runTLS tset set app = do
8984 , connRecv = TLS.recvData ctx
9085 }
9186 return (conn, sa)
87+ else do
88+ let conn = (socketConnection s)
89+ { connRecv = getNext $ fmap (fromMaybe B.empty) C.await
90+ }
91+ return (conn, sa)
9292
9393-- taken from stunnel example in tls-extra
9494ciphers :: [TLS.Cipher]