summary refs log tree commit diff
path: root/gnu/services/dict.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-05-10 19:27:24 +0200
committerLudovic Courtès <ludo@gnu.org>2023-05-11 13:21:45 +0200
commit3a00aba9e9bc65cd7578324635336222a302d200 (patch)
treeda06a762507864f2c3c979195765935c612dbae7 /gnu/services/dict.scm
parent4c7b5207cb3eacaee080b2b2fbaf0371b39888b3 (diff)
downloadguix-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/dict.scm')
-rw-r--r--gnu/services/dict.scm8
1 files changed, 5 insertions, 3 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