diff options
Diffstat (limited to 'guix-web/server.scm')
-rw-r--r-- | guix-web/server.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/guix-web/server.scm b/guix-web/server.scm index 49c6a07..af9f9dc 100644 --- a/guix-web/server.scm +++ b/guix-web/server.scm @@ -17,6 +17,7 @@ (define-module (guix-web server) #:use-module (ice-9 binary-ports) + #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (web http) #:use-module (web request) @@ -25,22 +26,14 @@ #:use-module (guix-web config) #:use-module (guix-web controller) #:use-module (guix-web render) + #:use-module (guix-web util) #:export (start-guix-web)) -(define (file-extension file-name) - (last (string-split file-name #\.))) - -(define (directory? filename) - (string=? filename (dirname filename))) - (define file-mime-types '(("css" . (text/css)) ("js" . (text/javascript)) ("png" . (image/png)))) -(define (request-path-components request) - (split-and-decode-uri-path (uri-path (request-uri request)))) - (define (serve-static-asset request) (let ((filename (string-join (cons guix-web-asset-dir |