me
/
guix
Archived
1
0
Fork 0
Code

services: guix-service: Remove extraneous monadism. 

* gnu/services/base.scm (guix-build-accounts): Remove unneeded
  'with-monad'.
  (guix-service): Adjust accordingly.
master
Ludovic Courtès 2015-03-17 22:25:03 +01:00
parent ff40e9b7e5
commit 5250a4f215
1 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/services/base.scm
View File

@ -568,8 +568,7 @@ given @var{config}---an @code{<nscd-configuration>} object. Optionally,
(shadow shadow))
"Return a list of COUNT user accounts for Guix build users, with UIDs
starting at FIRST-UID, and under GID."
(with-monad %store-monad
(return (unfold (cut > <> count)
(unfold (cut > <> count)
(lambda (n)
(user-account
(name (format #f "guixbuilder~2,'0d" n))
@ -586,7 +585,7 @@ starting at FIRST-UID, and under GID."
(home-directory "/var/empty")
(shell #~(string-append #$shadow "/sbin/nologin"))))
1+
1))))
1))
(define (hydra-key-authorization guix)
"Return a gexp with code to register the hydra.gnu.org public key with
@ -636,8 +635,7 @@ passed to @command{guix-daemon}."
(and authorize-hydra-key?
(hydra-key-authorization guix)))
(mlet %store-monad ((accounts (guix-build-accounts build-accounts
#:group builder-group)))
(with-monad %store-monad
(return (service
(provision '(guix-daemon))
(requirement '(user-processes))
@ -650,7 +648,8 @@ passed to @command{guix-daemon}."
'("--no-substitutes"))
#$@extra-options)))
(stop #~(make-kill-destructor))
(user-accounts accounts)
(user-accounts (guix-build-accounts build-accounts
#:group builder-group))
(user-groups (list (user-group
(name builder-group)
(system? #t)