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

services: openntpd: Remove useless let. 

* gnu/services/networking.scm (openntpd-shepherd-service): Remove useless let.
This commit is contained in:
Maxim Cournoyer 2019-09-06 21:12:26 +09:00
parent f92cf9d356
commit afd39a76e2
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/services/networking.scm
View File

@ -508,7 +508,7 @@ make an initial adjustment of more than 1,000 seconds."
(match-record config <openntpd-configuration> (match-record config <openntpd-configuration>
(openntpd listen-on query-from sensor server servers constraint-from (openntpd listen-on query-from sensor server servers constraint-from
constraints-from allow-large-adjustment?) constraints-from allow-large-adjustment?)
(let ()
(define config (define config
(string-join (string-join
(filter-map (filter-map
@ -542,7 +542,7 @@ make an initial adjustment of more than 1,000 seconds."
;; while running, leading shepherd to disable it. To ;; while running, leading shepherd to disable it. To
;; prevent spamming stderr, redirect output to logfile. ;; prevent spamming stderr, redirect output to logfile.
#:log-file "/var/log/ntpd")) #:log-file "/var/log/ntpd"))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor))))))
(define (openntpd-service-activation config) (define (openntpd-service-activation config)
"Return the activation gexp for CONFIG." "Return the activation gexp for CONFIG."