diff options
author | EuAndreh <eu@euandre.org> | 2023-03-20 10:04:28 -0300 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2023-03-20 10:04:28 -0300 |
commit | f057a8f3a3448d8766134c6dbbcf5a8e3eea25c2 (patch) | |
tree | 5349bc5c79f5cd91793cf12d423bafae21936301 | |
parent | Manage public SSH files as "extra-etc-file" instead of like a secret (diff) | |
download | toph-f057a8f3a3448d8766134c6dbbcf5a8e3eea25c2.tar.gz toph-f057a8f3a3448d8766134c6dbbcf5a8e3eea25c2.tar.xz |
system.scm: Better handling of newline at the end of all read files
Notes
See CI logs with:
git notes --ref=refs/notes/ci-logs show f057a8f3a3448d8766134c6dbbcf5a8e3eea25c2
git notes --ref=refs/notes/ci-data show f057a8f3a3448d8766134c6dbbcf5a8e3eea25c2
Exit status: 0
Duration: 16
-rw-r--r-- | src/infrastructure/guix/system.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/infrastructure/guix/system.scm b/src/infrastructure/guix/system.scm index d591c2b..ed34f75 100644 --- a/src/infrastructure/guix/system.scm +++ b/src/infrastructure/guix/system.scm @@ -56,7 +56,8 @@ textual-ports:get-string-all))) (define (file s) - (slurp (path s))) + (string-append (slurp (path s)) + "\n")) (define (script name content) (package @@ -75,8 +76,7 @@ (mkdir-p bin) (call-with-output-file prog (lambda (port) - (display #$content port) - (newline port))) + (display #$content port))) (chmod prog #o755))))) (home-page #f) (synopsis #f) |