From ec9c7cf030daf15d492a136dce23b1052036a038 Mon Sep 17 00:00:00 2001 From: Jon Kristensen Date: Thu, 19 Apr 2012 12:05:52 +0200 Subject: [PATCH] Char instead of Word8 for random 1.0.0.0 (ghc 7) compatibility --- src/Network/XMPP/SASL.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Network/XMPP/SASL.hs b/src/Network/XMPP/SASL.hs index c325d89..f7e28c3 100644 --- a/src/Network/XMPP/SASL.hs +++ b/src/Network/XMPP/SASL.hs @@ -92,8 +92,12 @@ createResponse g hostname username passwd' pairs = let uname = Text.encodeUtf8 username passwd = Text.encodeUtf8 passwd' realm = Text.encodeUtf8 hostname + + -- Using Char instead of Word8 for random 1.0.0.0 (GHC 7) + -- compatibility. cnonce = BS.tail . BS.init . - B64.encode . BS.pack . take 8 $ Random.randoms g + B64.encode . BS8.pack . take 8 $ Random.randoms g + nc = "00000001" digestURI = ("xmpp/" `BS.append` realm) digest = md5Digest