me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/services/web.scm (%hpcguix-web-activation): Add explicit
'with-imported-modules'.
master
Ludovic Courtès 2019-11-09 11:33:12 +01:00
parent bbfdaaa655
commit 1ce0d7e190
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/services/web.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; 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 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> ;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
@ -1047,13 +1047,15 @@ a webserver.")
(shell (file-append shadow "/sbin/nologin"))))) (shell (file-append shadow "/sbin/nologin")))))
(define %hpcguix-web-activation (define %hpcguix-web-activation
#~(begin (with-imported-modules '((guix build utils))
(use-modules (guix build utils)) #~(begin
(let ((home-dir "/var/cache/guix/web") (use-modules (guix build utils))
(user (getpwnam "hpcguix-web")))
(mkdir-p home-dir) (let ((home-dir "/var/cache/guix/web")
(chown home-dir (passwd:uid user) (passwd:gid user)) (user (getpwnam "hpcguix-web")))
(chmod home-dir #o755)))) (mkdir-p home-dir)
(chown home-dir (passwd:uid user) (passwd:gid user))
(chmod home-dir #o755)))))
(define %hpcguix-web-log-file (define %hpcguix-web-log-file
"/var/log/hpcguix-web.log") "/var/log/hpcguix-web.log")