From 3878b00db9b0f1f271d35a118fba04aed5383113 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 May 2020 23:44:19 +0200
Subject: Fix javascript mimetype in server.

---
 module/entry-points/server.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'module/entry-points/server.scm')

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 604766a5..c671867d 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -148,9 +148,15 @@
    ;; production it isn't a huge problem.
 
    (GET "/static/:*{.*}.:ext" (* ext)
+
+        ;; Actually parsing /etc/mime.types would be better.
+        (define mime
+          (case (string->symbol ext)
+            [(js) "javascript"]
+            [else ext]))
+
         (return
-         ;; TODO actually check mimetype
-         `((content-type ,(string->symbol (string-append "text/" ext))))
+         `((content-type ,(string->symbol (string-append "text/" mime))))
          (call-with-input-file (string-append "static/" * "." ext)
            read-string)))
 
-- 
cgit v1.2.3