ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: dmd: Strip the default list of modules.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2015-11-25 10:59:58 +01:00
parent fae685b9cc
commit 479b417b54
2 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/base.scm
View file

@ -223,7 +223,14 @@ (define file-system-service-type
(chdir "/") (chdir "/")
(umount #$target) (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) (define* (file-system-service file-system)
"Return a service that mounts @var{file-system}, a @code{<file-system>} "Return a service that mounts @var{file-system}, a @code{<file-system>}

8
gnu/services/dmd.scm
View file

@ -107,18 +107,14 @@ (define-syntax-rule (dmd-service-type service-name proc)
(define %default-imported-modules (define %default-imported-modules
;; Default set of modules imported for a service's consumption. ;; Default set of modules imported for a service's consumption.
'((guix build utils) '((guix build utils)
(guix build syscalls) (guix build syscalls)))
(gnu build file-systems)))
(define %default-modules (define %default-modules
;; Default set of modules visible in a service's file. ;; Default set of modules visible in a service's file.
`((dmd service) `((dmd service)
(oop goops) (oop goops)
(ice-9 ftw)
(guix build utils) (guix build utils)
(guix build syscalls) (guix build syscalls)))
((gnu build file-systems)
#:select (check-file-system canonicalize-device-spec))))
(define-record-type* <dmd-service> (define-record-type* <dmd-service>
dmd-service make-dmd-service dmd-service make-dmd-service