diff options
| -rw-r--r-- | haunt/serve/web-server.scm | 3 |
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) |