adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Updated for TLS 0.6

Browse source
This commit is contained in:
Julien Dessaux 2011-05-05 00:28:08 +02:00
parent 5d2c3cdeb2
commit 2ff4db03bb
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/Core.hs
View file

@ -7,6 +7,7 @@ module Hsbot.Core
import Control.Concurrent
import Control.Exception (IOException, catch)
import Control.Monad.Reader
import Crypto.Random
import qualified Data.ByteString.Char8 as C
import qualified Data.ByteString.Lazy as L
import qualified Data.Map as M
@ -38,7 +39,7 @@ initHsbot config = do
then (do
infoM "Hsbot.Core" "TLS init"
tlsenv <- initTLSEnv (configTLS config)
randomGen <- makeSRandomGen >>= either (fail . show) (return . id)
randomGen <- newGenIO :: IO SystemRandom
sCtx <- client tlsenv randomGen connhdl
handshake sCtx
return (Just tlsenv, Just sCtx))