X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=Bindings%2FAPR%2FAllocator.hsc;h=236fff908837cff4a2b441d5f67149626609ebcd;hp=0ee0f9713fc82232f3b9b5ce80bd002c33567cfd;hb=e4706506c52d72c3533c6f098e48a87ac60f57f3;hpb=106350525e3f5b71a8b19c02e5aa97abfc6d4203

diff --git a/Bindings/APR/Allocator.hsc b/Bindings/APR/Allocator.hsc
index 0ee0f97..236fff9 100644
--- a/Bindings/APR/Allocator.hsc
+++ b/Bindings/APR/Allocator.hsc
@@ -6,6 +6,7 @@ module Bindings.APR.Allocator where
 import Bindings.APR
 import Bindings.APR.Allocator.Types
 import Bindings.APR.Errno
+import Bindings.APR.Thread.Mutex
 import Bindings.APR.Pools
 
 #num APR_MEMNODE_T_SIZE
@@ -21,4 +22,5 @@ import Bindings.APR.Pools
 
 #ccall apr_allocator_max_free_set, Ptr <apr_allocator_t> -> <apr_size_t> -> IO ()
 
--- FIXME: incomplete
\ No newline at end of file
+#ccall apr_allocator_mutex_set, Ptr <apr_allocator_t> -> Ptr <apr_thread_mutex_t> -> IO ()
+#ccall apr_allocator_mutex_get, Ptr <apr_allocator_t> -> IO (Ptr <apr_thread_mutex_t>)