summary refs log tree commit diff
path: root/gnu/services/base.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-12-20 11:13:54 +0100
committerLudovic Courtès <ludo@gnu.org>2017-12-22 08:56:50 +0100
commit8faaf8d7cc466c8caa55905798c9ff9aaad9a1c9 (patch)
treeb9cfa0813cb3caf4f45cfffd11c23e279b930ef5 /gnu/services/base.scm
parent4e9fd50857a917ea30106262e356838c4f45b6ba (diff)
downloadguix-8faaf8d7cc466c8caa55905798c9ff9aaad9a1c9.tar.gz
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'.
Diffstat (limited to 'gnu/services/base.scm')
-rw-r--r--gnu/services/base.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 26525714a5..acc5c33f58 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -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)