aboutsummaryrefslogtreecommitdiff
path: root/guix/forge/socket.scm
diff options
context:
space:
mode:
authorArun Isaac2023-07-28 16:16:41 +0100
committerArun Isaac2023-08-08 23:05:48 +0100
commit3413a9f3fe0a1b4ebc0f10e80e462e712150be2c (patch)
tree32bef0609dec84d7fa07a3887bfd8cce2c7b11cc /guix/forge/socket.scm
parent1a87308071e88a23f44191d57ef7c09f7fdc9196 (diff)
downloadguix-forge-3413a9f3fe0a1b4ebc0f10e80e462e712150be2c.tar.gz
guix-forge-3413a9f3fe0a1b4ebc0f10e80e462e712150be2c.tar.lz
guix-forge-3413a9f3fe0a1b4ebc0f10e80e462e712150be2c.zip
socket: Introduce <forge-host-socket>.
* guix/forge/socket.scm (<forge-host-socket>): New record type. * doc/forge.skb (Reference): Document <forge-host-socket>.
Diffstat (limited to 'guix/forge/socket.scm')
-rw-r--r--guix/forge/socket.scm14
1 files changed, 13 insertions, 1 deletions
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?