From 479b417b54ab5ef7ce0d46c409ab084d5eb3c9ad Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 25 Nov 2015 10:59:58 +0100 Subject: services: dmd: Strip the default list of modules. * gnu/services/dmd.scm (%default-imported-modules): Remove (gnu build file-systems). (%default-modules): Likewise, and remove (ice-9 ftw). * gnu/services/base.scm (file-system-service-type): Add 'modules' and 'imported-modules' fields. --- gnu/services/base.scm | 9 ++++++++- gnu/services/dmd.scm | 8 ++------ 2 files changed, 10 insertions(+), 7 deletions(-) (limited to 'gnu') diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 6077fb6272..c242c7dbb8 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -223,7 +223,14 @@ FILE-SYSTEM." (chdir "/") (umount #$target) - #f))))))) + #f)) + + ;; We need an additional module. + (modules `(((gnu build file-systems) + #:select (check-file-system canonicalize-device-spec)) + ,@%default-modules)) + (imported-modules `((gnu build file-systems) + ,@%default-imported-modules))))))) (define* (file-system-service file-system) "Return a service that mounts @var{file-system}, a @code{} diff --git a/gnu/services/dmd.scm b/gnu/services/dmd.scm index 76f286a672..6f70f3d79b 100644 --- a/gnu/services/dmd.scm +++ b/gnu/services/dmd.scm @@ -107,18 +107,14 @@ service that extends DMD-ROOT-SERVICE-TYPE and nothing else." (define %default-imported-modules ;; Default set of modules imported for a service's consumption. '((guix build utils) - (guix build syscalls) - (gnu build file-systems))) + (guix build syscalls))) (define %default-modules ;; Default set of modules visible in a service's file. `((dmd service) (oop goops) - (ice-9 ftw) (guix build utils) - (guix build syscalls) - ((gnu build file-systems) - #:select (check-file-system canonicalize-device-spec)))) + (guix build syscalls))) (define-record-type* dmd-service make-dmd-service -- cgit v1.2.3