From ccf4678ce719063e59b04f6f18f6f52b4a8d5ee5 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Fri, 17 Mar 2023 12:57:33 -0300 Subject: queue.scm: s/srfi-1:/s1:/g --- src/org/euandre/queue.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/org/euandre/queue.scm') diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 1cbf63e..e22a0ff 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -1,7 +1,7 @@ (define-module (org euandre queue) #:use-module ((gnu build linux-container) #:prefix container:) #:use-module ((guix licenses) #:prefix license:) - #:use-module ((srfi srfi-1) #:prefix srfi-1:) + #:use-module ((srfi srfi-1) #:prefix s1:) #:use-module (guix build-system gnu) #:use-module (guix build-system python) #:use-module (guix build-system trivial) @@ -648,7 +648,7 @@ to the list of supplementary groups of the user of such running process."))) cyrus-sasl-accounts) (service-extension shepherd-root-service-type cyrus-sasl-shepherd-service))) - (compose srfi-1:concatenate) + (compose s1:concatenate) (extend (lambda (config services) (cyrus-sasl-configuration (inherit config) @@ -689,7 +689,7 @@ By default, the daemon runs in a container."))) (data-directory dkimproxyout-configuration-data-directory (default "/var/lib/dkimproxyout")) (run-in-container? dkimproxyout-configuration-run-in-container? (default #f)) (container-name dkimproxyout-configuration-container-name (default "dkimproxyout")) - (container-namespaces dkimproxyout-configuration-container-namespaces (default (srfi-1:fold delq container:%namespaces '(net)))) + (container-namespaces dkimproxyout-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net)))) (extra-mappings dkimproxyout-configuration-extra-mappings (default '()))) ;; # FIXME:DOCUMENTATION add this to the service documentation @@ -880,7 +880,7 @@ keyfile ~a/private.key (hostname postfix-configuration-hostname (default (gethostname))) (run-in-container? postfix-configuration-run-in-container? (default #f)) (container-name postfix-configuration-container-name (default "postfix")) - (container-namespaces postfix-configuration-container-namespaces (default (srfi-1:fold delq container:%namespaces '(net)))) + (container-namespaces postfix-configuration-container-namespaces (default (s1:fold delq container:%namespaces '(net)))) (extra-mappings postfix-configuration-extra-mappings (default '()))) -- cgit v1.2.3