diff options
| author | EuAndreh <eu@euandre.org> | 2023-03-27 07:50:43 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-03-27 07:51:31 -0300 |
| commit | 3aba1093fe0bae5c9b4d152309287a09510d624f (patch) | |
| tree | 8067067dd8c44fbf7ac30d044f03c7a34cb5521a /src/infrastructure/guix/system.scm | |
| parent | Makefile: Remove result{,-next} shenanigans (diff) | |
| download | toph-3aba1093fe0bae5c9b4d152309287a09510d624f.tar.gz toph-3aba1093fe0bae5c9b4d152309287a09510d624f.tar.xz | |
system.scm: Stop trimming slurped files by default
Diffstat (limited to 'src/infrastructure/guix/system.scm')
| -rw-r--r-- | src/infrastructure/guix/system.scm | 10 |
1 files changed, 4 insertions, 6 deletions
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 |