pontarius-xmpp 0.4.2.1 → 0.4.2.2

raw patch · 2 files changed

+6/−7 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• pontarius-xmpp.cabal +2/−2
• source/Network/Xmpp/Tls.hs +4/−5

@@ -1,5 +1,5 @@ Name:          pontarius-xmpp-Version:       0.4.2.1+Version:       0.4.2.2 Cabal-Version: >= 1.9.2 Build-Type:    Custom License:       BSD3@@ -210,4 +210,4 @@ Source-Repository this   Type: git   Location: git://github.com/pontarius/pontarius-xmpp.git-  Tag: 0.4.0.2+  Tag: 0.4.2.2

@@ -110,9 +110,8 @@         modify (\s -> s{streamConnectionState = Secured})         return () -client :: (MonadIO m, CPRG rng) => ClientParams -> rng -> Backend -> m Context-client params gen backend  = do-    contextNew backend params gen+client :: MonadIO m => ClientParams -> Backend -> m Context+client params backend = contextNew backend params  tlsinit :: (MonadIO m, MonadIO m1) =>         ClientParams@@ -125,12 +124,12 @@           ) tlsinit params backend = do     liftIO $ debugM "Pontarius.Xmpp.Tls" "TLS with debug mode enabled."-    gen <- liftIO (cprgCreate <$> createEntropyPool :: IO SystemRNG)+    -- gen <- liftIO (cprgCreate <$> createEntropyPool :: IO SystemRNG)     sysCStore <- liftIO getSystemCertificateStore     let params' = params{clientShared =                       (clientShared params){ sharedCAStore =                           sysCStore <> sharedCAStore (clientShared params)}}-    con <- client params' gen backend+    con <- client params' backend     handshake con     let src = forever $ do             dt <- liftIO $ recvData con