summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-27 22:46:27 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-27 22:46:27 +0100
commitfde40c98f916d36746dd78e742dff576146beef7 (patch)
tree8eeca02c7111ad8d756ab1b310c49562f20b92a0 /gnu/services
parent4331f558d788d901b2cb3667216ed29bc8d2800c (diff)
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.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/ssh.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index 18556d2cc5..4b0380e8fd 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))