From 3aba1093fe0bae5c9b4d152309287a09510d624f Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Mon, 27 Mar 2023 07:50:43 -0300 Subject: system.scm: Stop trimming slurped files by default --- src/infrastructure/guix/system.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/infrastructure/guix/system.scm b/src/infrastructure/guix/system.scm index e58ffe9..f898033 100644 --- a/src/infrastructure/guix/system.scm +++ b/src/infrastructure/guix/system.scm @@ -50,14 +50,12 @@ (str working-dir "/" s)) (define (slurp s) - (string-trim-both - (call-with-input-file - s - textual-ports:get-string-all))) + (call-with-input-file + s + textual-ports:get-string-all)) (define (file s) - (string-append (slurp (path s)) - "\n")) + (slurp (path s))) (define (script name content) (package -- cgit v1.2.3