diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-05-10 19:27:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-11 13:21:45 +0200 |
| commit | 3a00aba9e9bc65cd7578324635336222a302d200 (patch) | |
| tree | da06a762507864f2c3c979195765935c612dbae7 /gnu | |
| parent | 4c7b5207cb3eacaee080b2b2fbaf0371b39888b3 (diff) | |
services: dicod, bitlbee: Pass 'make-inetd-constructor' a list of endpoints.
'make-inetd-constructor' accepts a list of endpoints since version 0.9.1
of the Shepherd (released in May 2022).
* gnu/services/dict.scm (dicod-shepherd-service): Pass
'make-inetd-constructor' a list of endpoints.
* gnu/services/messaging.scm (bitlbee-shepherd-service): Likewise.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/dict.scm | 8 | ||||
| -rw-r--r-- | gnu/services/messaging.scm | 13 |
2 files changed, 12 insertions, 9 deletions
diff --git a/gnu/services/dict.scm b/gnu/services/dict.scm index 5a61085316..28add4b06a 100644 --- a/gnu/services/dict.scm +++ b/gnu/services/dict.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com> -;;; Copyright © 2016, 2017, 2018, 2020, 2022 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016, 2017, 2018, 2020, 2022, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Huang Ying <huang.ying.caritas@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -172,8 +172,10 @@ database { (make-inetd-constructor (list #$dicod "--inetd" "--foreground" (string-append "--config=" #$dicod.conf)) - (addrinfo:addr - (car (getaddrinfo #$(first interfaces) "dict"))) + (list (endpoint + (addrinfo:addr + (car (getaddrinfo #$(first interfaces) + "dict"))))) #:user "dicod" #:group "dicod" #:service-name-stem "dicod") (make-forkexec-constructor diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index 02712ede7c..3a48cd81f6 100644 --- a/gnu/services/messaging.scm +++ b/gnu/services/messaging.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> -;;; Copyright © 2015, 2017-2020, 2022 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2017-2020, 2022, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; ;;; This file is part of GNU Guix. @@ -866,11 +866,12 @@ string, you could instantiate a prosody service like this: (make-inetd-constructor (list #$bitlbee* "-I" "-c" #$conf) - (addrinfo:addr - (car (getaddrinfo #$interface - #$(number->string port) - (logior AI_NUMERICHOST - AI_NUMERICSERV)))) + (list (endpoint + (addrinfo:addr + (car (getaddrinfo #$interface + #$(number->string port) + (logior AI_NUMERICHOST + AI_NUMERICSERV)))))) #:service-name-stem "bitlbee" #:user "bitlbee" #:group "bitlbee" |