diff options
-rw-r--r-- | doc/forge.skb | 5 | ||||
-rw-r--r-- | guix/forge/gunicorn.scm | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/doc/forge.skb b/doc/forge.skb index 23d8faf..f084dd4 100644 --- a/doc/forge.skb +++ b/doc/forge.skb @@ -513,8 +513,9 @@ gunicorn apps to run])) (record-field "wsgi-app-module" [WSGI app module passed to gunicorn]) (record-field "sockets" - [List of ,(record-ref "<forge-ip-socket>") or ,(record-ref -"<forge-unix-socket>") objects describing sockets to listen on]) + [List of ,(record-ref "<forge-host-socket>"), ,(record-ref +"<forge-ip-socket>") or ,(record-ref "<forge-unix-socket>") objects +describing sockets to listen on]) (record-field "workers" [Number of worker processes]) (record-field "environment-variables" diff --git a/guix/forge/gunicorn.scm b/guix/forge/gunicorn.scm index 0bd9461..0f7ec91 100644 --- a/guix/forge/gunicorn.scm +++ b/guix/forge/gunicorn.scm @@ -123,6 +123,8 @@ (define socket->gunicorn-bind (match-lambda + (($ <forge-host-socket> hostname port) + (string-append hostname ":" port)) (($ <forge-ip-socket> (? ipv4-address? ip) port) (string-append ip ":" (number->string port))) (($ <forge-ip-socket> (? ipv6-address? ip) port) |