From 6c6f99c60005985932f94bba7b5e16d7b897f076 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Thu, 19 Apr 2012 13:43:34 +0200
Subject: [PATCH] fixed word8 problem in SASL

---
 src/Network/XMPP/SASL.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Network/XMPP/SASL.hs b/src/Network/XMPP/SASL.hs
index bff4caa..15de4c2 100644
--- a/src/Network/XMPP/SASL.hs
+++ b/src/Network/XMPP/SASL.hs
@@ -93,12 +93,10 @@ 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 . BS8.pack . take 8 $ Random.randoms g
-
+           B64.encode . BS.pack . map toWord8 . take 8 $ Random.randoms g
   nc = "00000001"
   digestURI = ("xmpp/" `BS.append` realm)
   digest = md5Digest
@@ -124,6 +122,7 @@ createResponse g hostname username passwd' pairs = let
   in Text.decodeUtf8 $ B64.encode response
   where
     quote x = BS.concat ["\"",x,"\""]
+    toWord8 x = fromIntegral (abs (x :: Int) `mod` 256) :: Binary.Word8
 
 toPairs :: BS.ByteString -> Either String [(BS.ByteString, BS.ByteString)]
 toPairs = AP.parseOnly . flip AP.sepBy1 (void $ AP.char ',') $ do
@@ -143,6 +142,7 @@ hashRaw :: [BS8.ByteString] -> BS8.ByteString
 hashRaw = toStrict . Binary.encode
           . (CC.hash' :: BS.ByteString -> MD5.MD5Digest) . BS.intercalate (":")
 
+
 toStrict :: BL.ByteString -> BS8.ByteString
 toStrict = BS.concat . BL.toChunks