ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Use 'source-module-closure' for (gnu build activation).

Browse source 
* gnu/services.scm (activation-script)[%modules]: Remove.
Use 'source-module-closure' instead.
This commit is contained in:
Ludovic Courtès 2016-09-20 17:38:59 +09:00
parent 92330ba90d
commit 232ccbefc0
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/services.scm
View file

@ -25,6 +25,7 @@ (define-module (gnu services)
#:use-module (guix profiles) #:use-module (guix profiles)
#:use-module (guix sets) #:use-module (guix sets)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix modules)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -320,16 +321,6 @@ (define* (activation-service->script service)
(define (activation-script gexps) (define (activation-script gexps)
"Return the system's activation script, which evaluates 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) (define (service-activations)
;; Return the activation scripts for SERVICES. ;; Return the activation scripts for SERVICES.
(mapm %store-monad (mapm %store-monad
@ -338,7 +329,8 @@ (define (service-activations)
(mlet* %store-monad ((actions (service-activations))) (mlet* %store-monad ((actions (service-activations)))
(gexp->file "activate" (gexp->file "activate"
(with-imported-modules %modules (with-imported-modules (source-module-closure
'((gnu build activation)))
#~(begin #~(begin
(use-modules (gnu build activation)) (use-modules (gnu build activation))