summaryrefslogtreecommitdiff
path: root/gnu/services/web.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-11-09 11:33:12 +0100
committerLudovic Courtès <ludo@gnu.org>2019-11-09 23:04:14 +0100
commit1ce0d7e190784c709abf3346d8d94e7e143569dc (patch)
tree8a3f948235a4e474e3b8a60780802326a6d33b2e /gnu/services/web.scm
parentbbfdaaa655e07fc8ed5c708330ccbc2659fa283c (diff)
downloadpatches-1ce0d7e190784c709abf3346d8d94e7e143569dc.tar
patches-1ce0d7e190784c709abf3346d8d94e7e143569dc.tar.gz
services: hpcguix-web: Explicitly import (guix build utils).
* gnu/services/web.scm (%hpcguix-web-activation): Add explicit 'with-imported-modules'.
Diffstat (limited to 'gnu/services/web.scm')
-rw-r--r--gnu/services/web.scm18
1 files changed, 10 insertions, 8 deletions
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index f13e86482f..d0c9d0df2b 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 <davet@gnu.org>
-;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
@@ -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")