Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

…ort response/full\?
  • Loading branch information...
commit 5b70f4ef07a926259c52471485bbae1bc91f8534 1 parent 8833ea0
Rob Hunter authored April 21, 2009
1  web-export.ss
@@ -18,7 +18,6 @@
18 18
          make-response/full
19 19
          response/c
20 20
          response?
21  
-         response/full?
22 21
          response/incremental?
23 22
          response/basic?
24 23
 
7  web-support.scm
@@ -54,8 +54,9 @@
54 54
                  response/c)))
55 55
 ;;
56 56
 (define (list-response content-lst #:type (type #"text/html") #:extras (extras '()))
57  
-  (basic-response (append-map (lambda (content) (map xexpr->string
58  
-                                                     (xexpr->de-grouped-xexprs content)))
  57
+  (basic-response (append-map (lambda (content)
  58
+                                (map (lambda (c) (string->bytes/utf-8 (xexpr->string c)))
  59
+                                     (xexpr->de-grouped-xexprs content)))
59 60
                               content-lst)
60 61
                   #:type type
61 62
                   #:extras extras))
@@ -64,7 +65,7 @@
64 65
   ;; right now we always no-cache.  we'll probably eventually want something more
65 66
   ;; subtle.
66 67
   (let ((no-cache (make-header #"Cache-Control" (string->bytes/utf-8 "no-cache;"))))
67  
-    (make-response/full 200 "all good" (current-seconds)
  68
+    (make-response/full 200 #"all good" (current-seconds)
68 69
                         type (cons no-cache extras)
69 70
                         content-lst)))
70 71
 

0 notes on commit 5b70f4e

Please sign in to comment.
Something went wrong with that request. Please try again.