update to tls >= 1.1.3

pontarius-xmpp.cabal

@@ -47,7 +47,7 @@ Library
                , conduit              >=1.0.1
                , containers           >=0.4.0.0
                , crypto-api           >=0.9
-               , crypto-random-api    >=0.2
+               , crypto-random        >=0.0.5
                , cryptohash           >=0.6.1
                , cryptohash-cryptoapi >=0.1
                , data-default         >=0.2
@@ -64,8 +64,8 @@ Library
                , stm                  >=2.1.2.1
                , stringprep           >=0.1.3
                , text                 >=0.11.1.5
-               , tls                  >=1.1.0
+               , tls                  >=1.1.3
-               , tls-extra            >=0.5.0
+               , tls-extra            >=0.6.0
                , transformers         >=0.2.2.0
                , void                 >=0.5.5
                , xml-types            >=0.3.1

source/Network/Xmpp/Tls.hs

@@ -1,25 +1,27 @@
 {-# OPTIONS_HADDOCK hide #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE PackageImports #-}
 
 module Network.Xmpp.Tls where
 
-import qualified Control.Exception.Lifted as Ex
+import                 Control.Applicative ((<$>))
-import           Control.Monad
+import qualified       Control.Exception.Lifted as Ex
-import           Control.Monad.Error
+import                 Control.Monad
-import           Control.Monad.State.Strict
+import                 Control.Monad.Error
-import           Crypto.Random.API
+import                 Control.Monad.State.Strict
-import qualified Data.ByteString as BS
+import "crypto-random" Crypto.Random
-import qualified Data.ByteString.Char8 as BSC8
+import qualified       Data.ByteString as BS
-import qualified Data.ByteString.Lazy as BL
+import qualified       Data.ByteString.Char8 as BSC8
-import           Data.Conduit
+import qualified       Data.ByteString.Lazy as BL
-import           Data.IORef
+import                 Data.Conduit
-import           Data.XML.Types
+import                 Data.IORef
-import           Network.DNS.Resolver (ResolvConf)
+import                 Data.XML.Types
-import           Network.TLS
+import                 Network.DNS.Resolver (ResolvConf)
-import           Network.Xmpp.Stream
+import                 Network.TLS
-import           Network.Xmpp.Types
+import                 Network.Xmpp.Stream
-import           System.Log.Logger (debugM, errorM, infoM)
+import                 Network.Xmpp.Types
+import                 System.Log.Logger (debugM, errorM, infoM)
 
 mkBackend :: StreamHandle -> Backend
 mkBackend con = Backend { backendSend = \bs -> void (streamSend con bs)
@@ -121,7 +123,7 @@ tlsinit :: (MonadIO m, MonadIO m1) =>
           )
 tlsinit params backend = do
     liftIO $ debugM "Pontarius.Xmpp.Tls" "TLS with debug mode enabled."
-    gen <- liftIO $ getSystemRandomGen -- TODO: Find better random source?
+    gen <- liftIO (cprgCreate <$> createEntropyPool :: IO SystemRNG)
     con <- client params gen backend
     handshake con
     let src = forever $ do