From 09e8670b70fff485a65945a72fc60c49c6f0cadf Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sun, 8 Feb 2015 13:25:04 +0000 Subject: [PATCH] add bang for unlifted bindings --- Crypto/Hash/Utils.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Crypto/Hash/Utils.hs b/Crypto/Hash/Utils.hs index 3c66553..be14750 100644 --- a/Crypto/Hash/Utils.hs +++ b/Crypto/Hash/Utils.hs @@ -49,10 +49,10 @@ toHex (B.PS fp off len) = B.unsafeCreate (len*2) $ \d -> -- little endian version to32 (I# i1) (I# i2) = W32# (or# (or# (or# hi2 lo2) hi1) lo1) - where hi2 = uncheckedShiftL# (indexWord8OffAddr# tableLo i2) 24# - lo2 = uncheckedShiftL# (indexWord8OffAddr# tableHi i2) 16# - hi1 = uncheckedShiftL# (indexWord8OffAddr# tableLo i1) 8# - lo1 = indexWord8OffAddr# tableHi i1 + where !hi2 = uncheckedShiftL# (indexWord8OffAddr# tableLo i2) 24# + !lo2 = uncheckedShiftL# (indexWord8OffAddr# tableHi i2) 16# + !hi1 = uncheckedShiftL# (indexWord8OffAddr# tableLo i1) 8# + !lo1 = indexWord8OffAddr# tableHi i1 r :: Addr# -> Int -> Word8 r table (I# index) = W8# (indexWord8OffAddr# table index)