diff options
| -rw-r--r-- | guix-web/render.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-web/render.scm b/guix-web/render.scm index ef0d93f..1d88831 100644 --- a/guix-web/render.scm +++ b/guix-web/render.scm @@ -43,7 +43,10 @@ (list `((content-type . ,(assoc-ref file-mime-types (file-extension file-name)))) (call-with-input-file file-name get-bytevector-all)) - (not-found (string->uri file-name))))) + (not-found (build-uri 'http + #:host "localhost" + #:port guix-web-port + #:path (string-join path "/" 'prefix)))))) (define (render-html sxml) (list '((content-type . (text/html))) |