01/07: services: dicod, bitlbee: Pass 'make-inetd-constructor' a list of endpoints.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3a00aba9e9bc65cd7578324635336222a302d200
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed May 10 19:27:24 2023 +0200

    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.
---
 gnu/services/dict.scm      |  8 +++++---
 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"