diff options
Diffstat (limited to 'src/System/Random/Crypto.hs')
-rw-r--r-- | src/System/Random/Crypto.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |