ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: lsh: Correctly handle #:interfaces option.

Browse source 
* gnu/services/ssh.scm (lsh-dmd-service)[lsh-command]: Pass a series of
--interface flags instead of the nonexistent --interfaces option.
This commit is contained in:
Ludovic Courtès 2015-11-27 22:46:27 +01:00
parent 4331f558d7
commit fde40c98f9
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/services/ssh.scm
View file

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