aboutsummaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-10 23:56:45 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-10 23:56:45 +0200
commitf3bde2ff9f19a542ccceea40e3750e1e478f245e (patch)
tree684f3f425775a3ebc3e79ec85e01c4b8cf871c45 /gnu/system
parent023f391c7860d21aee9e9b3e601d7a81bb5d128d (diff)
downloadguix-f3bde2ff9f19a542ccceea40e3750e1e478f245e.tar
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/system')
-rw-r--r--gnu/system/vm.scm16
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