From 0c3a57f573e79cceff89a7ef2e4fce62bb37e65f Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Fri, 10 Apr 2015 09:26:17 +0100 Subject: [PATCH] [Internal] actually initialize the array to n, not to 0. --- Crypto/Internal/WordArray.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Crypto/Internal/WordArray.hs b/Crypto/Internal/WordArray.hs index b393c2d..f654665 100644 --- a/Crypto/Internal/WordArray.hs +++ b/Crypto/Internal/WordArray.hs @@ -47,7 +47,7 @@ array32 (I# n) l = unsafeDoIO $ IO $ \s -> where loop _ st mb [] = freezeArray mb st loop i st mb ((W32# x):xs) - | booleanPrim (i ==# 0#) = freezeArray mb st + | booleanPrim (i ==# n) = freezeArray mb st | otherwise = let st' = writeWord32Array# mb i x st in loop (i +# 1#) st' mb xs @@ -63,7 +63,7 @@ array64 (I# n) l = unsafeDoIO $ IO $ \s -> where loop _ st mb [] = freezeArray mb st loop i st mb ((W64# x):xs) - | booleanPrim (i ==# 0#) = freezeArray mb st + | booleanPrim (i ==# n) = freezeArray mb st | otherwise = let st' = writeWord64Array# mb i x st in loop (i +# 1#) st' mb xs