nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/system/vm.scm
View File

@ -255,14 +255,14 @@ such as /etc files."
(define (operating-system-build-gid os) (define (operating-system-build-gid os)
"Return as a monadic value the group id for build users of OS, or #f." "Return as a monadic value the group id for build users of OS, or #f."
(anym %store-monad (mlet %store-monad ((services (operating-system-services os)))
(lambda (service) (return (any (lambda (service)
(and (equal? '(guix-daemon) (and (equal? '(guix-daemon)
(service-provision service)) (service-provision service))
(match (service-user-groups service) (match (service-user-groups service)
((group) ((group)
(user-group-id group))))) (user-group-id group)))))
(operating-system-services os))) services))))
(define (operating-system-default-contents os) (define (operating-system-default-contents os)
"Return a list of directives suitable for 'system-qemu-image' describing the "Return a list of directives suitable for 'system-qemu-image' describing the