Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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
@vegashacker authored
Showing with 4 additions and 4 deletions.
  1. +0 −1  web-export.ss
  2. +4 −3 web-support.scm
View
1  web-export.ss
@@ -18,7 +18,6 @@
make-response/full
response/c
response?
- response/full?
response/incremental?
response/basic?
View
7 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)))
Please sign in to comment.
Something went wrong with that request. Please try again.