summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-11-05 16:09:17 +0100
committerLudovic Courtès <ludo@gnu.org>2020-11-05 16:13:50 +0100
commita4e7749e91c5ed9b96117e3bcda8802e8744841e (patch)
tree147c9031da648861dd432a3f7ab8d9742d784aa4
parent4db90a6c1571eac16f8f304a41e82f576b351a55 (diff)
downloadguix-a4e7749e91c5ed9b96117e3bcda8802e8744841e.tar.gz
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.
-rw-r--r--gnu/services/monitoring.scm7
-rw-r--r--gnu/tests/mail.scm3
2 files changed, 4 insertions, 6 deletions
diff --git a/gnu/services/monitoring.scm b/gnu/services/monitoring.scm
index 511f4fb2fe..da3d736ba6 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 a50fb1dbca..eb8952b33a 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)