nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

services: openssh: Cosmetic changes. 

* gnu/services/ssh.scm (<openssh-configuration>): Reformat to fit in 80
columns.
This commit is contained in:
Clément Lassieur 2017-03-18 11:17:57 +01:00
parent a42619e5e2
commit 4ca3e9b7b6
No known key found for this signature in database
GPG Key ID: 89F96D4808F359C7
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/services/ssh.scm
View File

@ -260,28 +260,39 @@ The other options should be self-descriptive."
(define-record-type* <openssh-configuration> (define-record-type* <openssh-configuration>
openssh-configuration make-openssh-configuration openssh-configuration make-openssh-configuration
openssh-configuration? openssh-configuration?
(openssh openssh-configuration-openssh ;package ;; <package>
(openssh openssh-configuration-openssh
(default openssh)) (default openssh))
;; string
(pid-file openssh-configuration-pid-file (pid-file openssh-configuration-pid-file
(default "/var/run/sshd.pid")) (default "/var/run/sshd.pid"))
(port-number openssh-configuration-port-number ;integer ;; integer
(port-number openssh-configuration-port-number
(default 22)) (default 22))
(permit-root-login openssh-configuration-permit-root-login ;Boolean | 'without-password ;; Boolean | 'without-password
(permit-root-login openssh-configuration-permit-root-login
(default #f)) (default #f))
(allow-empty-passwords? openssh-configuration-allow-empty-passwords? ;Boolean ;; Boolean
(allow-empty-passwords? openssh-configuration-allow-empty-passwords?
(default #f)) (default #f))
(password-authentication? openssh-configuration-password-authentication? ;Boolean ;; Boolean
(password-authentication? openssh-configuration-password-authentication?
(default #t)) (default #t))
;; Boolean
(public-key-authentication? openssh-configuration-public-key-authentication? (public-key-authentication? openssh-configuration-public-key-authentication?
(default #t)) ;Boolean (default #t))
(x11-forwarding? openssh-configuration-x11-forwarding? ;Boolean ;; Boolean
(x11-forwarding? openssh-configuration-x11-forwarding?
(default #f)) (default #f))
;; Boolean
(challenge-response-authentication? openssh-challenge-response-authentication? (challenge-response-authentication? openssh-challenge-response-authentication?
(default #f)) ;Boolean (default #f))
;; Boolean
(use-pam? openssh-configuration-use-pam? (use-pam? openssh-configuration-use-pam?
(default #t)) ;Boolean (default #t))
;; Boolean
(print-last-log? openssh-configuration-print-last-log? (print-last-log? openssh-configuration-print-last-log?
(default #t))) ;Boolean (default #t)))
(define %openssh-accounts (define %openssh-accounts
(list (user-group (name "sshd") (system? #t)) (list (user-group (name "sshd") (system? #t))