used byte strings in a few places where it was needed; no need to exp…

…ort response/full\?
rob7hunter · Apr 21, 2009 · 5b70f4e · 5b70f4e
1 parent 8833ea0
commit 5b70f4e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/web-export.ss b/web-export.ss
@@ -18,7 +18,6 @@
          make-response/full
          response/c
          response?
-         response/full?
          response/incremental?
          response/basic?
 

diff --git a/web-support.scm b/web-support.scm
@@ -54,8 +54,9 @@
                  response/c)))
 ;;
 (define (list-response content-lst #:type (type #"text/html") #:extras (extras '()))
-  (basic-response (append-map (lambda (content) (map xexpr->string
-                                                     (xexpr->de-grouped-xexprs content)))
+  (basic-response (append-map (lambda (content)
+                                (map (lambda (c) (string->bytes/utf-8 (xexpr->string c)))
+                                     (xexpr->de-grouped-xexprs content)))
                               content-lst)
                   #:type type
                   #:extras extras))
@@ -64,7 +65,7 @@
   ;; right now we always no-cache.  we'll probably eventually want something more
   ;; subtle.
   (let ((no-cache (make-header #"Cache-Control" (string->bytes/utf-8 "no-cache;"))))
-    (make-response/full 200 "all good" (current-seconds)
+    (make-response/full 200 #"all good" (current-seconds)
                         type (cons no-cache extras)
                         content-lst)))