diff options
Diffstat (limited to 'Hsbot')
| -rw-r--r-- | Hsbot/Core.hs | 3 |
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)) |