civodul pushed a commit to branch master
in repository guix.
commit 3a00aba9e9bc65cd7578324635336222a302d200
Author: Ludovic Courtès <[email protected]>
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 <[email protected]>
-;;; Copyright © 2016, 2017, 2018, 2020, 2022 Ludovic Courtès <[email protected]>
+;;; Copyright © 2016, 2017, 2018, 2020, 2022, 2023 Ludovic Courtès
<[email protected]>
;;; Copyright © 2017 Huang Ying <[email protected]>
;;;
;;; 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 <[email protected]>
;;; Copyright © 2017 Mathieu Othacehe <[email protected]>
-;;; Copyright © 2015, 2017-2020, 2022 Ludovic Courtès <[email protected]>
+;;; Copyright © 2015, 2017-2020, 2022, 2023 Ludovic Courtès <[email protected]>
;;; Copyright © 2018 Pierre-Antoine Rouby <[email protected]>
;;;
;;; 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"
