3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

services: urandom-seed: Deprecate the 'urandom-seed-service' procedure.

* gnu/services/base.scm (urandom-seed-service-type)[default-value]: New
field.
(urandom-seed-service): Mark as deprecated.
(%base-services): Use URANDOM-SEED-SERVICE-TYPE directly.
* gnu/services/base.scm (%base-services):
* doc/guix.texi (Base Services): Document 'urandom-seed-service-type'
instead of 'urandom-seed-service'.
This commit is contained in:
Ludovic Courtès 2017-12-20 11:13:54 +01:00
parent 4e9fd50857
commit 8faaf8d7cc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 5 additions and 4 deletions

View file

@ -10031,12 +10031,12 @@ well as in the @var{groups} field of the @var{operating-system} record.
@end example
@end deffn
@deffn {Scheme Procedure} urandom-seed-service
@defvr {Scheme Variable} urandom-seed-service-type
Save some entropy in @var{%random-seed-file} to seed @file{/dev/urandom}
when rebooting. It also tries to seed @file{/dev/urandom} from
@file{/dev/hwrng} while booting, if @file{/dev/hwrng} exists and is
readable.
@end deffn
@end defvr
@defvr {Scheme Variable} %random-seed-file
This is the name of the file where some random bytes are saved by

View file

@ -597,12 +597,13 @@ in KNOWN-MOUNT-POINTS when it is stopped."
;; start until we have seeded the PRNG.
(service-extension user-processes-service-type
(const '(urandom-seed)))))
(default-value #f)
(description
"Seed the @file{/dev/urandom} pseudo-random number
generator (RNG) with the value recorded when the system was last shut
down.")))
(define (urandom-seed-service)
(define (urandom-seed-service) ;deprecated
(service urandom-seed-service-type #f))
@ -1984,7 +1985,7 @@ This service is not part of @var{%base-services}."
(ip "127.0.0.1")
(provision '(loopback)))))
(syslog-service)
(urandom-seed-service)
(service urandom-seed-service-type)
(guix-service)
(nscd-service)