diff options
author | Arun Isaac | 2023-04-18 23:23:58 +0100 |
---|---|---|
committer | Arun Isaac | 2023-04-18 23:23:58 +0100 |
commit | 7f8946bd09c85a5e544d42ed9410051817553ac1 (patch) | |
tree | 8113c727c5e1bea2d28f0fe68dfec57d65af02f8 /tissue | |
parent | 254c966d8c809b57e420fdee29876e0439a29a53 (diff) | |
download | tissue-7f8946bd09c85a5e544d42ed9410051817553ac1.tar.gz tissue-7f8946bd09c85a5e544d42ed9410051817553ac1.tar.lz tissue-7f8946bd09c85a5e544d42ed9410051817553ac1.zip |
web: server: Handle files without extension.
* tissue/web/server.scm (mime-type-for-extension): Handle files
without extension.
* tests/web/server.scm: New file.
Diffstat (limited to 'tissue')
-rw-r--r-- | tissue/web/server.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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) |