From b6d843c2dd619625e794ab9a653756d3cc15068c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 28 Jul 2023 16:17:30 +0100
Subject: gunicorn: Support <forge-host-socket> sockets.

* guix/forge/gunicorn.scm (socket->gunicorn-bind): Support
<forge-host-socket> sockets.
* doc/forge.skb (Reference): Document it.
---
 guix/forge/gunicorn.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'guix/forge/gunicorn.scm')

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)
-- 
cgit v1.2.3