diff options
-rw-r--r-- | tw/system.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tw/system.scm b/tw/system.scm index 58703e99..4cbd6dda 100644 --- a/tw/system.scm +++ b/tw/system.scm @@ -125,6 +125,7 @@ (with-extensions (list guile-json-4 guile-gnutls) ; guile-gnutls needed by (web client) #~(begin (use-modules ((srfi srfi-11) #:select (let-values)) + ((ice-9 ports) #:select (call-with-output-file)) ((ice-9 textual-ports) #:select (get-string-all)) (ice-9 format) (json) @@ -149,6 +150,10 @@ (zonefile (string-append #$tzdata "/share/zoneinfo/" timezone))) (delete-file "/etc/localtime") (symlink zonefile "/etc/localtime") + (call-with-output-file "/etc/timezone" + (lambda (port) + (display timezone port) + (newline port))) (format (current-error-port) "Updated timezone to ~a: success~%" timezone)))))))) |