diff options
Diffstat (limited to 'src/BTLS/BoringSSL/Rand.chs')
| -rw-r--r-- | src/BTLS/BoringSSL/Rand.chs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/BTLS/BoringSSL/Rand.chs b/src/BTLS/BoringSSL/Rand.chs index f7de732..d43d26b 100644 --- a/src/BTLS/BoringSSL/Rand.chs +++ b/src/BTLS/BoringSSL/Rand.chs @@ -23,5 +23,5 @@ import BTLS.Result #include <openssl/rand.h> -randBytes :: Ptr CUChar -> CULong -> IO () -randBytes buf len = alwaysSucceeds $ {#call RAND_bytes as ^#} buf len +{#fun RAND_bytes as randBytes + {id `Ptr CUChar', id `CULong'} -> `()' alwaysSucceeds*-#} |