diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-19 07:18:57 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-19 07:18:57 -0300 |
| commit | 023cac92657a6ce4294e8f11fe875d90417cd5fd (patch) | |
| tree | 5cc6d2459a986b6c88a28255006760710f1f8da2 /src/org/euandre/queue.scm | |
| parent | packages.scm: Add (with-services-from-args ...) (diff) | |
| download | packages-023cac92657a6ce4294e8f11fe875d90417cd5fd.tar.gz packages-023cac92657a6ce4294e8f11fe875d90417cd5fd.tar.xz | |
queue.scm: Use inline definition of slurp
Diffstat (limited to 'src/org/euandre/queue.scm')
| -rw-r--r-- | src/org/euandre/queue.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 9f030d8..640868f 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -1,4 +1,5 @@ (define-module (org euandre queue) + #:use-module ((ice-9 textual-ports) #:prefix textual-ports:) #:use-module ((gnu build linux-container) #:prefix container:) #:use-module ((guix licenses) #:prefix license:) #:use-module ((srfi srfi-1) #:prefix s1:) @@ -1739,7 +1740,9 @@ SetEnv GIT_CONFIG_GLOBAL=/etc/gitconfig"))) (cdr (reverse (cdr - (string-split (slurp path) + (string-split (call-with-input-file + path + textual-ports:get-string-all) #\newline))))) "") "stub-public-key-for-building")) |