diff options
Diffstat (limited to 'web/webserver.scm')
| -rwxr-xr-x | web/webserver.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index d697735..2c9fd53 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -96,8 +96,7 @@ otherwise search for set/group data" (list `((content-type . ,(assoc-ref file-mime-types (file-extension file-name))) (last-modified . ,(time-utc->date modified))) - - (call-with-input-file "./static/images/CMOR.jpg" get-bytevector-all)))) + (call-with-input-file file-name get-bytevector-all)))) (define* (render-doc path page #:optional rec #:key (extra-headers '())) (list (append extra-headers @@ -129,8 +128,8 @@ otherwise search for set/group data" (render-json info)) (('GET "version") (render-json get-version)) - (('GET "static" "images" path) - (render-static-image path)) + (('GET "static" "images" fn) + (render-static-image (string-append "static/images/" fn))) (('GET "brand" path) (render-brand path)) (('GET "doc" "species.html") |