From c0bdb304829c9fe9aaf29011db99340726ae15ab Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Tue, 4 Dec 2012 08:56:15 +0000 Subject: [PATCH] fix client hello relative to the new deprecated record field. --- debug/src/CheckCiphers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/debug/src/CheckCiphers.hs b/debug/src/CheckCiphers.hs index 18021bf..4b738da 100644 --- a/debug/src/CheckCiphers.hs +++ b/debug/src/CheckCiphers.hs @@ -82,7 +82,7 @@ fakeCipher cid = Cipher , cipherMinVer = Nothing } -clienthello ciphers = ClientHello TLS10 (ClientRandom $ B.pack [0..31]) (Session Nothing) ciphers [0] [] +clienthello ciphers = ClientHello TLS10 (ClientRandom $ B.pack [0..31]) (Session Nothing) ciphers [0] [] Nothing openConnection :: String -> String -> [Word16] -> IO (Maybe Word16) openConnection s p ciphers = do