X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=Bindings%2FAPR%2FShm.hsc;fp=Bindings%2FAPR%2FShm.hsc;h=84bf37e3479986f213e996e5820f84965100020f;hp=cfd54c0cfe83e823e62ec0c70f9f587d5365f102;hb=a00e288af730f68c4296368ecf8b413c6e569395;hpb=da6a659f8aa0956a86787e64348e2cccc769d2bf

diff --git a/Bindings/APR/Shm.hsc b/Bindings/APR/Shm.hsc
index cfd54c0..84bf37e 100644
--- a/Bindings/APR/Shm.hsc
+++ b/Bindings/APR/Shm.hsc
@@ -1,5 +1,6 @@
 #include <bindings.dsl.h>
 #include <apr_shm.h>
+#include "bindings.apr.pools.h"
 
 module Bindings.APR.Shm where
 #strict_import
@@ -17,4 +18,4 @@ import Bindings.APR.Pools
 #ccall apr_shm_baseaddr_get, Ptr <apr_shm_t> -> IO (Ptr ())
 #ccall apr_shm_size_get    , Ptr <apr_shm_t> -> IO <apr_size_t>
 
-#ccall apr_shm_pool_get    , Ptr <apr_shm_t> -> IO (Ptr <apr_pool_t>)
+#apr_pool_accessor shm