diff options
| -rw-r--r-- | guix-web/config.scm | 2 | ||||
| -rw-r--r-- | guix-web/render.scm | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/guix-web/config.scm b/guix-web/config.scm index 5de3dea..8094d83 100644 --- a/guix-web/config.scm +++ b/guix-web/config.scm @@ -18,7 +18,9 @@ (define-module (guix-web config) #:use-module (ice-9 match) #:export (guix-web-asset-dir + guix-web-host guix-web-port)) (define guix-web-asset-dir (getcwd)) +(define guix-web-host "localhost") (define guix-web-port 8080) diff --git a/guix-web/render.scm b/guix-web/render.scm index 1d88831..375c81d 100644 --- a/guix-web/render.scm +++ b/guix-web/render.scm @@ -44,7 +44,7 @@ (file-extension file-name)))) (call-with-input-file file-name get-bytevector-all)) (not-found (build-uri 'http - #:host "localhost" + #:host guix-web-host #:port guix-web-port #:path (string-join path "/" 'prefix)))))) @@ -73,7 +73,7 @@ (define (redirect path) (let ((uri (build-uri 'http - #:host "localhost" + #:host guix-web-host #:port guix-web-port #:path (string-append "/" (encode-and-join-uri-path path))))) |