diff options
| author | Arun Isaac | 2023-07-28 16:16:41 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-08-08 23:05:48 +0100 |
| commit | 3413a9f3fe0a1b4ebc0f10e80e462e712150be2c (patch) | |
| tree | 32bef0609dec84d7fa07a3887bfd8cce2c7b11cc | |
| parent | 1a87308071e88a23f44191d57ef7c09f7fdc9196 (diff) | |
| download | guix-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>.
| -rw-r--r-- | doc/forge.skb | 5 | ||||
| -rw-r--r-- | guix/forge/socket.scm | 14 |
2 files changed, 18 insertions, 1 deletions
diff --git a/doc/forge.skb b/doc/forge.skb index 5c5a5fd..e8b535f 100644 --- a/doc/forge.skb +++ b/doc/forge.skb @@ -248,6 +248,11 @@ unused unused, and may be deprecated in the future.])) (record-field "trigger?" [If ,(code [#t]), this job is run on every commit. Else, it must be manually set up to run some other way.])) + (record-documentation "guix/forge/socket.scm" '<forge-host-socket> + (record-field "hostname" + [Name of the host]) + (record-field "port" + [Port number])) (record-documentation "guix/forge/socket.scm" '<forge-ip-socket> (record-field "ip" [IP address, either IPv4 or IPv6, as a string. The loopback 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? |