From 59060419ba72773b11ada8aa56a063874b58f5d0 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Sat, 9 Jan 2021 11:57:23 +0100
Subject: Initial commit

---
 ldp/resource/xml.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 ldp/resource/xml.scm

(limited to 'ldp/resource/xml.scm')

diff --git a/ldp/resource/xml.scm b/ldp/resource/xml.scm
new file mode 100644
index 0000000..d6a63c4
--- /dev/null
+++ b/ldp/resource/xml.scm
@@ -0,0 +1,9 @@
+(define-module (ldp resource xml)
+  #:use-module (ldp resource sxml)
+  #:use-module (sxml simple))
+
+(define-public (xml->resource string-or-port)
+  (sxml->resource (xml->sxml string-or-port)))
+
+(define-public (resource->xml resource . args)
+  (apply sxml->xml (resource->sxml resource) args))
-- 
cgit v1.2.3