[shepherd] branch master updated: service: 'socket-address->string' correctly handles AF_INET6 addresses.

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch master
in repository shepherd.

The following commit(s) were added to refs/heads/master by this push:
     new 27dd4df  service: 'socket-address->string' correctly handles AF_INET6 
addresses.
27dd4df is described below

commit 27dd4df9d83e9c59668bd9e6ca05a3a4983e10d2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat May 14 10:39:22 2022 +0200

    service: 'socket-address->string' correctly handles AF_INET6 addresses.
    
    Reported by Jack Hill <jackhill@jackhill.us>
    at <https://issues.guix.gnu.org/55335#4>.
    
    * modules/shepherd/service.scm (socket-address->string): Pass AF_INET6
    as the first argument to 'inet-ntop' in the AF_INET6 case.
---
 modules/shepherd/service.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index f343938..ded8283 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -1283,7 +1283,7 @@ as argument, where SIGNAL defaults to `SIGTERM'."
            (string-append (inet-ntop AF_INET (sockaddr:addr address))
                           ":" (number->string (sockaddr:port address))))
           ((= AF_INET6 family)
-           (string-append "[" (inet-ntop AF_INET (sockaddr:addr address)) "]"
+           (string-append "[" (inet-ntop AF_INET6 (sockaddr:addr address)) "]"
                           ":" (number->string (sockaddr:port address))))
           ((= AF_UNIX family)
            (sockaddr:path address))