Browse Source
services: Use 'source-module-closure' for (gnu build activation).
* gnu/services.scm (activation-script)[%modules]: Remove.
Use 'source-module-closure' instead.
wip-deploy
Ludovic Courtès
6 years ago
No known key found for this signature in database
GPG Key ID: 90B11993D9AEBB5
1 changed files with
3 additions and
11 deletions
-
gnu/services.scm
|
|
|
@ -25,6 +25,7 @@ |
|
|
|
#:use-module (guix profiles) |
|
|
|
#:use-module (guix sets) |
|
|
|
#:use-module (guix ui) |
|
|
|
#:use-module (guix modules) |
|
|
|
#:use-module (gnu packages base) |
|
|
|
#:use-module (gnu packages bash) |
|
|
|
#:use-module (srfi srfi-1) |
|
|
|
@ -320,16 +321,6 @@ ACTIVATION-SCRIPT-TYPE." |
|
|
|
|
|
|
|
(define (activation-script gexps) |
|
|
|
"Return the system's activation script, which evaluates GEXPS." |
|
|
|
(define %modules |
|
|
|
'((gnu build activation) |
|
|
|
(gnu build linux-boot) |
|
|
|
(gnu build linux-modules) |
|
|
|
(gnu build file-systems) |
|
|
|
(guix build utils) |
|
|
|
(guix build syscalls) |
|
|
|
(guix build bournish) |
|
|
|
(guix elf))) |
|
|
|
|
|
|
|
(define (service-activations) |
|
|
|
;; Return the activation scripts for SERVICES. |
|
|
|
(mapm %store-monad |
|
|
|
@ -338,7 +329,8 @@ ACTIVATION-SCRIPT-TYPE." |
|
|
|
|
|
|
|
(mlet* %store-monad ((actions (service-activations))) |
|
|
|
(gexp->file "activate" |
|
|
|
(with-imported-modules %modules |
|
|
|
(with-imported-modules (source-module-closure |
|
|
|
'((gnu build activation))) |
|
|
|
#~(begin |
|
|
|
(use-modules (gnu build activation)) |
|
|
|
|
|
|
|
|
