summaryrefslogtreecommitdiff
path: root/Hsbot
diff options
context:
space:
mode:
authorJulien Dessaux2011-05-05 00:28:08 +0200
committerJulien Dessaux2011-05-05 00:28:08 +0200
commit2ff4db03bbe41001322ea27f74997a813ded6a1f (patch)
tree473fd0d0949fc311aa58d7f354c83d0306fbe2d6 /Hsbot
parentChanged the way I handled the Bot monad for more concurrency. (diff)
downloadhsbot-2ff4db03bbe41001322ea27f74997a813ded6a1f.tar.gz
hsbot-2ff4db03bbe41001322ea27f74997a813ded6a1f.tar.bz2
hsbot-2ff4db03bbe41001322ea27f74997a813ded6a1f.zip
Updated for TLS 0.6
Diffstat (limited to 'Hsbot')
-rw-r--r--Hsbot/Core.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index f1659e9..4e79c76 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -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))