diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-27 22:46:27 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-27 22:46:27 +0100 |
| commit | fde40c98f916d36746dd78e742dff576146beef7 (patch) | |
| tree | 8eeca02c7111ad8d756ab1b310c49562f20b92a0 | |
| parent | 4331f558d788d901b2cb3667216ed29bc8d2800c (diff) | |
| download | guix-fde40c98f916d36746dd78e742dff576146beef7.tar.gz | |
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.
| -rw-r--r-- | 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 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)) |