Don't ignore a specified non-default port in 'haunt serve'.

Without this patch 'haunt serve' claims to use the specified
non-default port, but in fact uses the default 8080 instead.
This commit is contained in:
Sudarshan S Chawathe 2017-09-02 19:18:45 -04:00 committed by David Thompson
parent 9e4fba766d
commit 829ee49c2d
1 changed files with 1 additions and 1 deletions

View File

@ -140,4 +140,4 @@ site."
(string-prefix? (string-append cwd "/" build-dir) dir)))) (string-prefix? (string-append cwd "/" build-dir) dir))))
(site-file-filter site))))) (site-file-filter site)))))
(serve doc-root))) (serve doc-root #:open-params `(#:port ,port))))