diff options
| author |  Andy Wingo | 2011-02-18 23:34:57 +0100 |
|---|---|---|
| committer | Andy Wingo | 2011-02-18 23:34:57 +0100 |
| commit | fce14fbddf1fd20c3cba56171fd52b6465e44441 (patch) | |
| tree | d9dbb27bfdc6196d93a34602291403c51cdcbe0e | |
| parent | 2a87435f81cc2ef0e0b1b7c749bb029ae6fac5be (diff) | |
| download | tekuti-fce14fbddf1fd20c3cba56171fd52b6465e44441.tar.gz tekuti-fce14fbddf1fd20c3cba56171fd52b6465e44441.zip | |
s/unparse-uri/uri->string/
| -rw-r--r-- | tekuti/page-helpers.scm | 6 | ||||
| -rw-r--r-- | tekuti/page.scm | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm index 07405a5..eb946a1 100644 --- a/tekuti/page-helpers.scm +++ b/tekuti/page-helpers.scm @@ -112,7 +112,7 @@ "&")) (define* (relative-url uri path-components #:key query fragment) - (unparse-uri + (uri->string (build-uri (uri-scheme uri) #:userinfo (uri-userinfo uri) #:host (uri-host uri) #:port (uri-port uri) @@ -385,7 +385,7 @@ (define (atom-header last-modified) (define (relurl . tail) - (unparse-uri (ensure-public-uri tail))) + (uri->string (ensure-public-uri tail))) `(feed (@ (xmlns "http://www.w3.org/2005/Atom") (xml:base ,(relurl))) (title (@ (type "text")) ,*title*) @@ -404,7 +404,7 @@ (define (atom-entry post) (define (relurl . tail) - (unparse-uri (ensure-public-uri tail))) + (uri->string (ensure-public-uri tail))) `(entry (author (name ,*name*) (uri ,(relurl))) (title (@ (type "text")) ,(post-title post)) diff --git a/tekuti/page.scm b/tekuti/page.scm index 6844a95..6e0b322 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -328,7 +328,7 @@ (respond #f #:last-modified (and=> last-modified timestamp->date) #:doctype #f - #:content-type "application/atom+xml" + #:content-type 'application/atom+xml #:etag (assq-ref index 'master) #:sxml (append (atom-header last-modified) (map |