diff options
| author | Clément Lassieur <clement@lassieur.org> | 2017-03-18 11:17:57 +0100 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2017-03-21 20:49:26 +0100 |
| commit | 4ca3e9b7b6909839c3b03f691a1c370e3fdea3b0 (patch) | |
| tree | 3ce098aeed437883d79b9c5384628e7d917e77fb /gnu | |
| parent | a42619e5e211ed2511f71029ee2c5777c0f54c3b (diff) | |
| download | guix-4ca3e9b7b6909839c3b03f691a1c370e3fdea3b0.tar guix-4ca3e9b7b6909839c3b03f691a1c370e3fdea3b0.tar.gz | |
services: openssh: Cosmetic changes.
* gnu/services/ssh.scm (<openssh-configuration>): Reformat to fit in 80
columns.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/ssh.scm | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm index d8a3ad35ad..6272d53fc8 100644 --- a/gnu/services/ssh.scm +++ b/gnu/services/ssh.scm @@ -260,28 +260,39 @@ The other options should be self-descriptive." (define-record-type* <openssh-configuration> openssh-configuration make-openssh-configuration openssh-configuration? - (openssh openssh-configuration-openssh ;package + ;; <package> + (openssh openssh-configuration-openssh (default openssh)) + ;; string (pid-file openssh-configuration-pid-file (default "/var/run/sshd.pid")) - (port-number openssh-configuration-port-number ;integer + ;; integer + (port-number openssh-configuration-port-number (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)) - (allow-empty-passwords? openssh-configuration-allow-empty-passwords? ;Boolean + ;; Boolean + (allow-empty-passwords? openssh-configuration-allow-empty-passwords? (default #f)) - (password-authentication? openssh-configuration-password-authentication? ;Boolean + ;; Boolean + (password-authentication? openssh-configuration-password-authentication? (default #t)) + ;; Boolean (public-key-authentication? openssh-configuration-public-key-authentication? - (default #t)) ;Boolean - (x11-forwarding? openssh-configuration-x11-forwarding? ;Boolean + (default #t)) + ;; Boolean + (x11-forwarding? openssh-configuration-x11-forwarding? (default #f)) + ;; Boolean (challenge-response-authentication? openssh-challenge-response-authentication? - (default #f)) ;Boolean + (default #f)) + ;; Boolean (use-pam? openssh-configuration-use-pam? - (default #t)) ;Boolean + (default #t)) + ;; Boolean (print-last-log? openssh-configuration-print-last-log? - (default #t))) ;Boolean + (default #t))) (define %openssh-accounts (list (user-group (name "sshd") (system? #t)) |