From 1349d89b03ccdae4594e3e5605eec83bc4efddb4 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Fri, 31 Aug 2018 17:22:42 -0400
Subject: Remove some unnecessary `fromIntegral`s

---
 src/Codec/Crypto/HKDF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Codec/Crypto/HKDF.hs')

diff --git a/src/Codec/Crypto/HKDF.hs b/src/Codec/Crypto/HKDF.hs
index a8c8fa9..5dd9b1f 100644
--- a/src/Codec/Crypto/HKDF.hs
+++ b/src/Codec/Crypto/HKDF.hs
@@ -47,5 +47,5 @@ expand (Algorithm md) (AssociatedData info) outLen (SecretKey secret) =
   SecretKey $
     unsafeLocalState $
       allocaArray outLen $ \pOutKey -> do
-        hkdfExpand pOutKey (fromIntegral outLen) md secret info
+        hkdfExpand pOutKey outLen md secret info
         packCUStringLen (pOutKey, outLen)
-- 
cgit v1.2.3