diff options
| -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" |