ldp/resource/xml.scm


1
2
3
4
5
6
7
8
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))