diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2019-10-30 17:46:17 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2019-10-30 18:15:54 -0400 |
| commit | 97bc3cbea5fc281a299c03eaaa3be5baf21ea673 (patch) | |
| tree | 3074bdada04bb70c776048ebaa4e31a0103fa512 /gnu/services | |
| parent | d29d04c9e64c2421ed84022e0c140ead40e5fb58 (diff) | |
services: ntp: Ensure no double quotes are output to config file.
* gnu/services/networking.scm (ntp-server->string): Use the textual
representation of the values as printed by 'display' rather than 'write', to
avoid inserting double quotes in the generated config.
* tests/networking.scm (%ntp-server-sample): Add a comment and make one of the
options a string, to exercise the fix.
("ntp-server->string"): Move the expected value to the first argument.
("ntp configuration servers deprecated form"): Likewise.
("openntpd generated config string ends with a newline"): Likewise.
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/networking.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index 93d9b6a15e..841fbd741e 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -345,7 +345,7 @@ Protocol (DHCP) client, on all the non-loopback network interfaces." (res '())) (if (list? x) (fold loop res x) - (cons (format #f "~s" x) res))))) + (cons (format #f "~a" x) res))))) (match ntp-server (($ <ntp-server> type address options) |