guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

138/182: services: hpcguix-web: Explicitly import (guix build utils).


From: guix-commits
Subject: 138/182: services: hpcguix-web: Explicitly import (guix build utils).
Date: Fri, 15 Nov 2019 00:01:56 -0500 (EST)

kkebreau pushed a commit to branch wip-gnome-updates
in repository guix.

commit 8fa5c57b7a11a8a5ab04b94c02c733a84f1b2f1d
Author: Ludovic Courtès <address@hidden>
Date:   Sat Nov 9 11:33:12 2019 +0100

    services: hpcguix-web: Explicitly import (guix build utils).
    
    * gnu/services/web.scm (%hpcguix-web-activation): Add explicit
    'with-imported-modules'.
---
 gnu/services/web.scm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index f13e864..d0c9d0d 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 David Thompson <address@hidden>
-;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <address@hidden>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2016 ng0 <address@hidden>
 ;;; Copyright © 2016, 2017, 2018 Julien Lepiller <address@hidden>
 ;;; Copyright © 2017 Christopher Baines <address@hidden>
@@ -1047,13 +1047,15 @@ a webserver.")
          (shell (file-append shadow "/sbin/nologin")))))
 
 (define %hpcguix-web-activation
-  #~(begin
-      (use-modules (guix build utils))
-      (let ((home-dir "/var/cache/guix/web")
-            (user (getpwnam "hpcguix-web")))
-        (mkdir-p home-dir)
-        (chown home-dir (passwd:uid user) (passwd:gid user))
-        (chmod home-dir #o755))))
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+
+        (let ((home-dir "/var/cache/guix/web")
+              (user (getpwnam "hpcguix-web")))
+          (mkdir-p home-dir)
+          (chown home-dir (passwd:uid user) (passwd:gid user))
+          (chmod home-dir #o755)))))
 
 (define %hpcguix-web-log-file
   "/var/log/hpcguix-web.log")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]