X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=Bindings%2FAPR%2FNetwork%2FIO.hsc;fp=Bindings%2FAPR%2FNetwork%2FIO.hsc;h=febaf5e4633a11b23735ff76f13c4bd8d1a39eec;hp=90d0e5caf93af783b42a25d883442d110d41fe2a;hb=a00e288af730f68c4296368ecf8b413c6e569395;hpb=da6a659f8aa0956a86787e64348e2cccc769d2bf

diff --git a/Bindings/APR/Network/IO.hsc b/Bindings/APR/Network/IO.hsc
index 90d0e5c..febaf5e 100644
--- 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>