From 4296301234c048e172b7338c24d420606fb3788e Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Thu, 7 Oct 2010 01:01:54 +0900
Subject: [PATCH 1/1] Bindings.APR.UUID

---
 Bindings/APR/UUID.hsc   | 16 ++++++++++++++++
 bindings-apr-util.cabal |  1 +
 2 files changed, 17 insertions(+)
 create mode 100644 Bindings/APR/UUID.hsc

diff --git a/Bindings/APR/UUID.hsc b/Bindings/APR/UUID.hsc
new file mode 100644
index 0000000..41208a8
--- /dev/null
+++ b/Bindings/APR/UUID.hsc
@@ -0,0 +1,16 @@
+#include <bindings.dsl.h>
+#include <apr_uuid.h>
+
+module Bindings.APR.UUID where
+#strict_import
+import Bindings.APR.ErrNo
+
+#starttype apr_uuid_t
+#  array_field data, CUChar
+#stoptype
+
+#num APR_UUID_FORMATTED_LENGTH
+
+#ccall apr_uuid_get   , Ptr <apr_uuid_t> -> IO ()
+#ccall apr_uuid_format, Ptr CChar -> Ptr <apr_uuid_t> -> IO ()
+#ccall apr_uuid_parse , Ptr <apr_uuid_t> -> Ptr CChar -> IO <apr_status_t>
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 08809f3..a78f1ac 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -53,6 +53,7 @@ Library
         Bindings.APR.StrMatch
         Bindings.APR.Thread.Pool
         Bindings.APR.URI
+        Bindings.APR.UUID
         Bindings.APR.XLate
 
     C-Sources:
-- 
2.40.0