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.
This commit is contained in:
Ludovic Courtès 2014-05-10 23:56:45 +02:00
parent 023f391c78
commit f3bde2ff9f

View file

@ -255,14 +255,14 @@ (define* (qemu-image #:key
(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)
(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)))))
(operating-system-services os)))
services))))
(define (operating-system-default-contents os)
"Return a list of directives suitable for 'system-qemu-image' describing the