haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[internal] fix build by making primitive binding stricter as required by older ghc

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-02 08:10:07 +01:00
parent d7a88da726
commit cd0b2bfe64
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Crypto/Internal/Hex.hs
View File

@ -33,10 +33,10 @@ showHexadecimal withPtr = doChunks 0
| len < 4 = doUnique ofs len | len < 4 = doUnique ofs len
| otherwise = do | otherwise = do
let !(W8# a, W8# b, W8# c, W8# d) = unsafeDoIO $ withPtr (read4 ofs) let !(W8# a, W8# b, W8# c, W8# d) = unsafeDoIO $ withPtr (read4 ofs)
(# w1, w2 #) = convertByte a !(# w1, w2 #) = convertByte a
(# w3, w4 #) = convertByte b !(# w3, w4 #) = convertByte b
(# w5, w6 #) = convertByte c !(# w5, w6 #) = convertByte c
(# w7, w8 #) = convertByte d !(# w7, w8 #) = convertByte d
in wToChar w1 : wToChar w2 : wToChar w3 : wToChar w4 in wToChar w1 : wToChar w2 : wToChar w3 : wToChar w4
: wToChar w5 : wToChar w6 : wToChar w7 : wToChar w8 : wToChar w5 : wToChar w6 : wToChar w7 : wToChar w8
: doChunks (ofs + 4) (len - 4) : doChunks (ofs + 4) (len - 4)
@ -45,7 +45,7 @@ showHexadecimal withPtr = doChunks 0
| len == 0 = [] | len == 0 = []
| otherwise = | otherwise =
let !(W8# b) = unsafeDoIO $ withPtr (byteIndex ofs) let !(W8# b) = unsafeDoIO $ withPtr (byteIndex ofs)
(# w1, w2 #) = convertByte b !(# w1, w2 #) = convertByte b
in wToChar w1 : wToChar w2 : doUnique (ofs + 1) (len - 1) in wToChar w1 : wToChar w2 : doUnique (ofs + 1) (len - 1)
read4 :: Int -> Ptr Word8 -> IO (Word8, Word8, Word8, Word8) read4 :: Int -> Ptr Word8 -> IO (Word8, Word8, Word8, Word8)