diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-08-31 16:50:41 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-08-31 16:50:41 -0400 |
| commit | 80f2fb2e3be2c4074fbfb0adbc47746d2d88813b (patch) | |
| tree | ca49c396dea7463c7c5088a8134f98e2bdfd6756 /src/BTLS/BoringSSL/Rand.chs | |
| parent | d1a85eb87934d348c9789aec59c751fa615ec363 (diff) | |
Begin switching to `fun` in c2hs
Replace most invocations of `call` with `fun`. There’s a lot of explicit
`id`-marshalling going on; future commits will remove it.
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*-#} |