From 80f2fb2e3be2c4074fbfb0adbc47746d2d88813b Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Fri, 31 Aug 2018 16:50:41 -0400
Subject: Begin switching to `fun` in c2hs
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Replace most invocations of `call` with `fun`. There’s a lot of explicit
`id`-marshalling going on; future commits will remove it.
---
 src/BTLS/BoringSSL/Rand.chs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/BTLS/BoringSSL/Rand.chs')

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*-#}
-- 
cgit v1.2.3