blob: 337982996b5be3a03005289786114eaa35bc77d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(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)))
|
