diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-10 23:56:45 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-10 23:56:45 +0200 |
| commit | f3bde2ff9f19a542ccceea40e3750e1e478f245e (patch) | |
| tree | 684f3f425775a3ebc3e79ec85e01c4b8cf871c45 /gnu | |
| parent | 023f391c7860d21aee9e9b3e601d7a81bb5d128d (diff) | |
| download | guix-f3bde2ff9f19a542ccceea40e3750e1e478f245e.tar.gz | |
vm: Fix recently-introduced regression in 'operating-system-services' use.
* gnu/system/vm.scm (operating-system-build-gid): Adjust to new return type of 'operating-system-services' introduced in 217a5b8.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/system/vm.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index b20831f44d..2520853205 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -255,14 +255,14 @@ such as /etc files." (define (operating-system-build-gid os) "Return as a monadic value the group id for build users of OS, or #f." - (anym %store-monad - (lambda (service) - (and (equal? '(guix-daemon) - (service-provision service)) - (match (service-user-groups service) - ((group) - (user-group-id group))))) - (operating-system-services os))) + (mlet %store-monad ((services (operating-system-services os))) + (return (any (lambda (service) + (and (equal? '(guix-daemon) + (service-provision service)) + (match (service-user-groups service) + ((group) + (user-group-id group))))) + services)))) (define (operating-system-default-contents os) "Return a list of directives suitable for 'system-qemu-image' describing the |