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
#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>)