From 61868ebf68181f456fa59be2c638f1d57a83ac9d Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Tue, 19 Nov 2024 10:16:57 -0600
Subject: Change headers' list into alist

Change the headers list into an alist to ensure the static files are
actually sent back rather than failing with a status 500 error.
---
 web/webserver.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'web')

diff --git a/web/webserver.scm b/web/webserver.scm
index 4969f23..d2a8c8d 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -87,9 +87,9 @@ otherwise search for set/group data"
          (modified (and stat
                         (make-time time-utc 0
                                    (stat:mtime stat)))))
-    (list `((content-type ,(assoc-ref file-mime-types
-				      (file-extension file-name)))
-            (last-modified ,(time-utc->date modified)))
+    (list `((content-type . ,(assoc-ref file-mime-types
+				        (file-extension file-name)))
+            (last-modified . ,(time-utc->date modified)))
           (call-with-input-file file-name
             get-bytevector-all))))
 
@@ -100,9 +100,9 @@ otherwise search for set/group data"
          (modified (and stat
                         (make-time time-utc 0
                                    (stat:mtime stat)))))
-    (list `((content-type ,(assoc-ref file-mime-types
-				      (file-extension path)))
-            (last-modified ,(time-utc->date modified)))
+    (list `((content-type . ,(assoc-ref file-mime-types
+				        (file-extension path)))
+            (last-modified . ,(time-utc->date modified)))
           (call-with-input-file path
             get-bytevector-all))))
 
-- 
cgit v1.2.3