From a98b7548b2d3a21d2b7dbee0c80729e9db19dd28 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Sun, 9 Nov 2014 14:15:14 +0000
Subject: [PATCH] fix integral type for older version of memcpy. fix ghc 7.4.x

---
 Crypto/KDF/Scrypt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Crypto/KDF/Scrypt.hs b/Crypto/KDF/Scrypt.hs
index d6fb9bc..874dfea 100644
--- a/Crypto/KDF/Scrypt.hs
+++ b/Crypto/KDF/Scrypt.hs
@@ -56,7 +56,7 @@ generate params
         allocaBytesAligned (128*(fromIntegral $ n params)*(r params)) 8 $ \v ->
             allocaBytesAligned (256*r params) 8 $ \xy ->
             withForeignPtr fptr $ \bPtr -> do
-                withBytePtr b $ \bOrig -> B.memcpy bPtr bOrig intLen
+                withBytePtr b $ \bOrig -> B.memcpy bPtr bOrig (fromIntegral intLen)
                 forM_ [0..(p params-1)] $ \i ->
                     ccryptonite_scrypt_smix (bPtr `plusPtr` (i * 128 * (r params)))
                                             (fromIntegral $ r params) (n params) v xy