[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/07: services: Remove imports of (ice-9 …) modules.
From: |
guix-commits |
Subject: |
06/07: services: Remove imports of (ice-9 …) modules. |
Date: |
Thu, 5 Nov 2020 10:16:01 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit a4e7749e91c5ed9b96117e3bcda8802e8744841e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Nov 5 16:09:17 2020 +0100
services: Remove imports of (ice-9 …) modules.
* gnu/services/monitoring.scm (zabbix-server-activation): Remove (ice-9
rdelim) from the imported modules.
(zabbix-agent-activation): Likewise.
* gnu/tests/mail.scm (run-exim-test)[test]: Remove (ice-9 ftw) from the
imported modules.
---
gnu/services/monitoring.scm | 7 +++----
gnu/tests/mail.scm | 3 +--
2 files changed, 4 insertions(+), 6 deletions(-)
diff --git a/gnu/services/monitoring.scm b/gnu/services/monitoring.scm
index 511f4fb..da3d736 100644
--- a/gnu/services/monitoring.scm
+++ b/gnu/services/monitoring.scm
@@ -279,11 +279,11 @@ configuration file."))
(define (zabbix-server-activation config)
"Return the activation gexp for CONFIG."
- (with-imported-modules '((guix build utils)
- (ice-9 rdelim))
+ (with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils)
(ice-9 rdelim))
+
(let ((user (getpw #$(zabbix-server-configuration-user config))))
(for-each (lambda (file)
(let ((directory (dirname file)))
@@ -393,8 +393,7 @@ configuration file."))
(define (zabbix-agent-activation config)
"Return the activation gexp for CONFIG."
- (with-imported-modules '((guix build utils)
- (ice-9 rdelim))
+ (with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils)
(ice-9 rdelim))
diff --git a/gnu/tests/mail.scm b/gnu/tests/mail.scm
index a50fb1d..eb8952b 100644
--- a/gnu/tests/mail.scm
+++ b/gnu/tests/mail.scm
@@ -205,8 +205,7 @@ acl_check_data:
(port-forwardings '((1025 . 25)))))
(define test
- (with-imported-modules '((gnu build marionette)
- (ice-9 ftw))
+ (with-imported-modules '((gnu build marionette))
#~(begin
(use-modules (rnrs base)
(srfi srfi-64)
- branch master updated (552e9fc -> a5945a6), guix-commits, 2020/11/05
- 01/07: image: Error out when passed an unsupported partition type., guix-commits, 2020/11/05
- 05/07: pack: Do not include the host (guix config)., guix-commits, 2020/11/05
- 06/07: services: Remove imports of (ice-9 …) modules.,
guix-commits <=
- 07/07: gnu: chromium: Silent 'local-file' warning., guix-commits, 2020/11/05
- 04/07: shepherd: Remove dependency on (guix utils)., guix-commits, 2020/11/05
- 03/07: gexp: Warn when importing (guix config) or (ice-9 …)., guix-commits, 2020/11/05
- 02/07: gexp: Store the source code location in <gexp>., guix-commits, 2020/11/05