From 3413a9f3fe0a1b4ebc0f10e80e462e712150be2c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 28 Jul 2023 16:16:41 +0100
Subject: socket: Introduce <forge-host-socket>.

* guix/forge/socket.scm (<forge-host-socket>): New record type.
* doc/forge.skb (Reference): Document <forge-host-socket>.
---
 guix/forge/socket.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'guix/forge')

diff --git a/guix/forge/socket.scm b/guix/forge/socket.scm
index 6d2c539..e6e38de 100644
--- a/guix/forge/socket.scm
+++ b/guix/forge/socket.scm
@@ -19,7 +19,12 @@
 
 (define-module (forge socket)
   #:use-module (guix records)
-  #:export (<forge-ip-socket>
+  #:export (<forge-host-socket>
+            forge-host-socket
+            forge-host-socket?
+            forge-host-socket-hostname
+            forge-host-socket-port
+            <forge-ip-socket>
             forge-ip-socket
             forge-ip-socket?
             forge-ip-socket-ip
@@ -31,6 +36,13 @@
             forge-unix-socket?
             forge-unix-socket-path))
 
+(define-record-type* <forge-host-socket>
+  forge-host-socket make-forge-host-socket
+  forge-host-socket?
+  (hostname forge-host-socket-hostname
+            (default "localhost"))
+  (port forge-host-socket-port))
+
 (define-record-type* <forge-ip-socket>
   forge-ip-socket make-forge-ip-socket
   forge-ip-socket?
-- 
cgit v1.2.3