gnu: plantuml: Update to 1.2020.16.

[jackhill/guix/guix.git] / gnu / services.scm

diff --git a/gnu/services.scm b/gnu/services.scm
index 3e59c64..11ba21e 100644 (file)
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -35,7 +35,6 @@
   #:use-module (guix modules)
   #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
-  #:use-module (gnu packages guile)
   #:use-module (gnu packages hurd)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
@@ -586,29 +585,28 @@ ACTIVATION-SCRIPT-TYPE."
                 (with-imported-modules (source-module-closure
                                         '((gnu build activation)
                                           (guix build utils)))
-                  (with-extensions (list guile-zlib)
-                    #~(begin
-                        (use-modules (gnu build activation)
-                                     (guix build utils))
-
-                        ;; Make sure the user accounting database exists.  If
-                        ;; it does not exist, 'setutxent' does not create it
-                        ;; and thus there is no accounting at all.
-                        (close-port (open-file "/var/run/utmpx" "a0"))
-
-                        ;; Same for 'wtmp', which is populated by mingetty et
-                        ;; al.
-                        (mkdir-p "/var/log")
-                        (close-port (open-file "/var/log/wtmp" "a0"))
-
-                        ;; Set up /run/current-system.  Among other things
-                        ;; this sets up locales, which the activation snippets
-                        ;; executed below may expect.
-                        (activate-current-system)
-
-                        ;; Run the services' activation snippets.
-                        ;; TODO: Use 'load-compiled'.
-                        (for-each primitive-load '#$actions))))))
+                  #~(begin
+                      (use-modules (gnu build activation)
+                                   (guix build utils))
+
+                      ;; Make sure the user accounting database exists.  If it
+                      ;; does not exist, 'setutxent' does not create it and
+                      ;; thus there is no accounting at all.
+                      (close-port (open-file "/var/run/utmpx" "a0"))
+
+                      ;; Same for 'wtmp', which is populated by mingetty et
+                      ;; al.
+                      (mkdir-p "/var/log")
+                      (close-port (open-file "/var/log/wtmp" "a0"))
+
+                      ;; Set up /run/current-system.  Among other things this
+                      ;; sets up locales, which the activation snippets
+                      ;; executed below may expect.
+                      (activate-current-system)
+
+                      ;; Run the services' activation snippets.
+                      ;; TODO: Use 'load-compiled'.
+                      (for-each primitive-load '#$actions)))))
 
 (define (gexps->activation-gexp gexps)
   "Return a gexp that runs the activation script containing GEXPS."