summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-web/render.scm5
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)))