me
/
guix
Archived
1
0
Fork 0
Code

services: Create /var/log upon activation. 

When launching a container created with guix system container, the
attempt to create /var/log/wtmp would fail, as /var/log did not exist.

* gnu/services.scm (activation-script): Create /var/log

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
master
Christopher Baines 2017-02-23 08:20:57 +00:00 committed by Ludovic Courtès
parent 82ccc499f7
commit fe2b6434f0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/services.scm
View File

@ -334,9 +334,11 @@ ACTIVATION-SCRIPT-TYPE."
(mlet* %store-monad ((actions (service-activations))) (mlet* %store-monad ((actions (service-activations)))
(gexp->file "activate" (gexp->file "activate"
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
'((gnu build activation))) '((gnu build activation)
(guix build utils)))
#~(begin #~(begin
(use-modules (gnu build activation)) (use-modules (gnu build activation)
(guix build utils))
;; Make sure the user accounting database exists. If it ;; Make sure the user accounting database exists. If it
;; does not exist, 'setutxent' does not create it and ;; does not exist, 'setutxent' does not create it and
@ -345,6 +347,7 @@ ACTIVATION-SCRIPT-TYPE."
;; Same for 'wtmp', which is populated by mingetty et ;; Same for 'wtmp', which is populated by mingetty et
;; al. ;; al.
(mkdir-p "/var/log")
(close-port (open-file "/var/log/wtmp" "a0")) (close-port (open-file "/var/log/wtmp" "a0"))
;; Set up /run/current-system. Among other things this ;; Set up /run/current-system. Among other things this