diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-25 10:59:58 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-25 11:59:54 +0100 |
| commit | 479b417b54ab5ef7ce0d46c409ab084d5eb3c9ad (patch) | |
| tree | 78a0f52203cf3ec127156643226270fb08779ded /gnu/services/base.scm | |
| parent | fae685b9cc21860d84dc5a768795025376b7db06 (diff) | |
| download | patches-479b417b54ab5ef7ce0d46c409ab084d5eb3c9ad.tar patches-479b417b54ab5ef7ce0d46c409ab084d5eb3c9ad.tar.gz | |
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.
Diffstat (limited to 'gnu/services/base.scm')
| -rw-r--r-- | gnu/services/base.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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{<file-system>} |