cobra
/
MeMe
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use quasiquote for internally handled response headers 

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>
This commit is contained in:
Skylar "The Cobra" Widulski 2023-12-14 18:07:18 -05:00
parent f261baf9a3
commit a43e47e153
Signed by: cobra
GPG Key ID: 4FD8F812083FF6F9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
meme.scm
View File

@ -41,14 +41,14 @@
(cond
((equal? path "/style.css")
(display ";\tHandler: internal") (newline)
(values '((content-type . (text/css))
(values `((content-type . (text/css))
(cache-control .
,(parse-header 'cache-control
"max-age=604800")))
(call-with-input-file "static/style.css" get-string-all)))
((equal? path "/favicon.png")
(display ";\tHandler: internal") (newline)
(values '((content-type . (image/png))
(values `((content-type . (image/png))
(cache-control .
,(parse-header 'cache-control
"max-age=604800")))