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/services/messaging.scm | |
| parent | 4c7b5207cb3eacaee080b2b2fbaf0371b39888b3 (diff) | |
| download | guix-3a00aba9e9bc65cd7578324635336222a302d200.tar guix-3a00aba9e9bc65cd7578324635336222a302d200.tar.gz | |
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/services/messaging.scm')
| -rw-r--r-- | gnu/services/messaging.scm | 13 |
1 files changed, 7 insertions, 6 deletions
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" |