From f057a8f3a3448d8766134c6dbbcf5a8e3eea25c2 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Mon, 20 Mar 2023 10:04:28 -0300
Subject: system.scm: Better handling of newline at the end of all read files

---
 src/infrastructure/guix/system.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3