Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

we should be applying body wrap in all cases, not just one

  • Loading branch information...
commit 81da4f9fff6c304b2f137bd82a2f40a813227640 1 parent 0ab98a9
@vegashacker authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 page.scm
View
4 page.scm
@@ -80,7 +80,7 @@
(if (not redirect-to)
(e "Unless you are doing a #:redirect-to, a body is required.")
#f)
- (last body))))
+ (body-wrap (last body)))))
(cond (redirect-to (response-promise-to-redirect redirect-to))
((response/full? returned-body) returned-body)
((response-promise? returned-body) returned-body)
@@ -97,7 +97,7 @@
,@(map js-inc js)
,@(map raw-str raw-header)
(title ,title))
- (body ,body-attrs ,(body-wrap returned-body)))))
+ (body ,body-attrs ,returned-body))))
(if doc-type
`(group ,(raw-str doc-type) ,main)
main))))))
Please sign in to comment.
Something went wrong with that request. Please try again.