summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt/serve/web-server.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/haunt/serve/web-server.scm b/haunt/serve/web-server.scm
index 21cf193..531bd4d 100644
--- a/haunt/serve/web-server.scm
+++ b/haunt/serve/web-server.scm
@@ -94,7 +94,8 @@ Otherwise, return FILE-NAME as-is."
(define (render-file file-name)
"Return a 200 OK HTTP response that renders the contents of
FILE-NAME."
- (values `((content-type . (,(mime-type file-name))))
+ (values `((content-type . (,(mime-type file-name)))
+ (access-control-allow-origin . "*"))
(call-with-input-file file-name get-bytevector-all)))
(define (render-directory path dir)