(define-module (reader)
  #:use-module (haunt reader)
  #:use-module (haunt post)
  #:use-module (sxml simple)
  #:use-module (srfi srfi-26)
  #:export (xml-reader))

(define (read-xml-post port)
  (values (read-metadata-headers port)
          (xml->sxml port)))

(define xml-reader
  (make-reader (make-file-extension-matcher "xml")
               (cut call-with-input-file <> read-xml-post)))