bindings.apr.inherit.h

[bindings-apr.git] / Bindings / APR / Network / IO.hsc

diff --git a/Bindings/APR/Network/IO.hsc b/Bindings/APR/Network/IO.hsc
index 90d0e5caf93af783b42a25d883442d110d41fe2a..febaf5e4633a11b23735ff76f13c4bd8d1a39eec 100644 (file)
--- a/Bindings/APR/Network/IO.hsc
+++ b/Bindings/APR/Network/IO.hsc
@@ -1,5 +1,7 @@
 #include <bindings.dsl.h>
 #include <apr_network_io.h>
+#include "bindings.apr.pools.h"
+#include "bindings.apr.inherit.h"
 
 module Bindings.APR.Network.IO where
 #strict_import
@@ -129,9 +131,9 @@ import Bindings.APR.Want
 
 #ccall apr_socket_protocol_get, Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
 
-#ccall apr_socket_pool_get     , Ptr <apr_socket_t> -> IO (Ptr <apr_pool_t>)
-#ccall apr_socket_inherit_set  , Ptr <apr_socket_t> -> IO <apr_status_t>
-#ccall apr_socket_inherit_unset, Ptr <apr_socket_t> -> IO <apr_status_t>
+#apr_pool_accessor socket
+#apr_inherit_set   socket
+#apr_inherit_unset socket
 
 #ccall apr_mcast_join     , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
 #ccall apr_mcast_leave    , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>