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/System/Random/Crypto.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/System/Random/Crypto.hs')

diff --git a/src/System/Random/Crypto.hs b/src/System/Random/Crypto.hs
index 903f7aa..ed5706d 100644
--- a/src/System/Random/Crypto.hs
+++ b/src/System/Random/Crypto.hs
@@ -26,5 +26,5 @@ import BTLS.Buffer (packCUStringLen)
 randomBytes :: Int -> IO ByteString
 randomBytes len =
   allocaArray len $ \pBuf -> do
-    randBytes pBuf (fromIntegral len)
+    randBytes pBuf len
     packCUStringLen (pBuf, len)
-- 
cgit v1.2.3