Better making function synonyms be macros than handmade synonyms.

[bindings-apr.git] / Bindings / APR / Portable.hsc

diff --git a/Bindings/APR/Portable.hsc b/Bindings/APR/Portable.hsc
index 498b17d51633c0a2787b9ae473957c44b5fa3f3e..66288f5fb2c03c5f66219928df8811ca1d5560b2 100644 (file)
--- a/Bindings/APR/Portable.hsc
+++ b/Bindings/APR/Portable.hsc
@@ -39,22 +39,8 @@ import Bindings.APR.Time
 #  field protocol, CInt
 #stoptype
 
-#if APR_PROC_MUTEX_IS_GLOBAL
-type C'apr_os_global_mutex_t = C'apr_os_proc_mutex_t
-
-c'apr_os_global_mutex_get :: Ptr C'apr_os_global_mutex_t -> Ptr C'apr_global_mutex_t -> IO C'apr_status_t
-c'apr_os_global_mutex_get = c'apr_os_proc_mutex_get
-#else
-#  starttype struct apr_os_global_mutex_t
-#    field pool      , Ptr <apr_pool_t>
-#    field proc_mutex, Ptr <apr_proc_mutex_t>
-#    if APR_HAS_THREADS
-#      field thread_mutex, Ptr <apr_thread_mutex_t>
-#    endif
-#  stoptype
-
-#  ccall apr_os_global_mutex_get, Ptr <apr_os_global_mutex_t> -> Ptr <apr_global_mutex_t> -> IO <apr_status_t>
-#endif
+#opaque_t apr_os_global_mutex_t
+#cinline apr_os_global_mutex_get, Ptr <apr_os_global_mutex_t> -> Ptr <apr_global_mutex_t> -> IO <apr_status_t>
 
 #ccall apr_os_file_get      , Ptr <apr_os_file_t> -> Ptr <apr_file_t> -> IO <apr_status_t>
 #ccall apr_os_dir_get       , Ptr (Ptr <apr_os_dir_t>) -> Ptr <apr_dir_t> -> IO <apr_status_t>