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

diff --git a/Bindings/APR/Network/IO.hsc b/Bindings/APR/Network/IO.hsc
index 90d0e5c..2928e89 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
@@ -12,7 +14,7 @@ import Bindings.APR.Want
 
 #num APR_MAX_SECS_TO_LINGER
 #num APRMAXHOSTLEN
-#pointer APR_ANYADDR
+#globalarray APR_ANYADDR, CChar
 
 #num APR_SO_LINGER
 #num APR_SO_KEEPALIVE
@@ -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>