From 7f8946bd09c85a5e544d42ed9410051817553ac1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 18 Apr 2023 23:23:58 +0100
Subject: web: server: Handle files without extension.

* tissue/web/server.scm (mime-type-for-extension): Handle files
without extension.
* tests/web/server.scm: New file.
---
 tissue/web/server.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tissue')

diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index db89bae..e8ee9eb 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -72,7 +72,9 @@
 
 (define (mime-type-for-extension extension)
   "Return the mime type for @var{extension}."
-  (or (assoc-ref %mime-types (string-remove-prefix "." extension))
+  (or (assoc-ref %mime-types (if (string-null? extension)
+                                 extension
+                                 (string-remove-prefix "." extension)))
       '(application/octet-stream)))
 
 (define (404-response request)
-- 
cgit v1.2.3