From fce14fbddf1fd20c3cba56171fd52b6465e44441 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Fri, 18 Feb 2011 23:34:57 +0100
Subject: s/unparse-uri/uri->string/

---
 tekuti/page-helpers.scm | 6 +++---
 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
-- 
cgit v1.2.3-54-g00ecf