From 023cac92657a6ce4294e8f11fe875d90417cd5fd Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Mon, 19 Aug 2024 07:18:57 -0300 Subject: queue.scm: Use inline definition of slurp --- src/org/euandre/queue.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') 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")) -- cgit v1.2.3