PR 7680

svn: r1311

collects/web-server/dispatch-files.ss

@@ -66,12 +66,11 @@
       TEXT/HTML-MIME-TYPE
       `([Location . ,(string-append url-path-str "/")])
       (list
-       (xml->string
+       (xexpr->string
-        (xexpr->xml
+        `(html
-         `(html
+          (head (title "Add a Slash"))
-           (head (title "Add a Slash"))
+          (body "Please use "
-           (body "Please use "
+                (a ([href ,(string-append
-                 (a ([href ,(string-append
+                            url-path-str "/")])
-                             url-path-str "/")])
+                   "this url") " instead.")))))
-                    "this url") " instead."))))))
      method)))

collects/web-server/util.ss

@@ -16,7 +16,6 @@
            url-path->string)
   
   (provide/contract
-   [xml->string (document? . -> . string?)]
    [decompose-request ((request?) . ->* . (url? symbol? string?))]
    [network-error ((symbol? string?) (listof any/c) . ->* . (void))]
    [path->list  (path? . -> . (cons/c (union path? (symbols 'up 'same))
@@ -28,12 +27,6 @@
    [get-mime-type (path? . -> . bytes?)]
    [build-path-unless-absolute (path? (union string? path?) . -> . path?)])
     
-  ;; xml->string: xml -> string
-  (define (xml->string some-xml)
-    (let ([o-port (open-output-string)])
-      (write-xml/content some-xml o-port)
-      (get-output-string o-port)))
-  
   ;; ripped this off from url-unit.ss
   (define (url-path->string strs)
     (apply