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
Show stats 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))

7
hsbot.cabal
View file

@ -1,5 +1,5 @@
Name: hsbot
Version: 0.4.5
Version: 0.4.6
Cabal-version: >=1.2
Synopsis: A multipurposes IRC bot
Description:
@ -31,14 +31,15 @@ Library
bytestring,
certificate,
containers,
crypto-api,
cryptocipher,
dyre,
hslogger,
irc,
mtl,
network,
tls >= 0.5.1,
tls-extra >= 0.1.2
tls >= 0.6.1,
tls-extra >= 0.2.0
Executable hsbot