02/06: services: lsh: Correctly handle #:interfaces option.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit fde40c98f916d36746dd78e742dff576146beef7
Author: Ludovic Courtès <address@hidden>
Date:   Fri Nov 27 22:46:27 2015 +0100

    services: lsh: Correctly handle #:interfaces option.
    
    * gnu/services/ssh.scm (lsh-dmd-service)[lsh-command]: Pass a series of
    --interface flags instead of the nonexistent --interfaces option.
---
 gnu/services/ssh.scm |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index 18556d2..4b0380e 100644
--- a/gnu/services/ssh.scm
+++ b/gnu/services/ssh.scm
@@ -23,6 +23,7 @@
   #:use-module (gnu services dmd)
   #:use-module (gnu system pam)
   #:use-module (gnu packages lsh)
+  #:use-module (srfi srfi-26)
   #:export (lsh-service))
 
 ;;; Commentary:
@@ -142,8 +143,8 @@
                 "--tcpip-forward" "--no-tcpip-forward")
             (if (null? interfaces)
                 '()
-                (list (string-append "--interfaces="
-                                     (string-join interfaces ",")))))))
+                (map (cut string-append "--interface=" <>)
+                     interfaces)))))
 
   (define requires
     (if (and daemonic? (lsh-configuration-syslog-output? config))