[bug#77582] services: Make the urandom-seed-service-type return success.

Message ID ba99bc7d999e33de1723dbdcd1a5b29bce14488b.1743961298.git.leo@famulari.name
State New
Headers
Series [bug#77582] services: Make the urandom-seed-service-type return success. |

Commit Message

Leo Famulari April 6, 2025, 5:41 p.m. UTC
  Reported by nigko on #guix:

https://logs.guix.gnu.org/guix/2025-04-05.log#201718

* gnu/services/base.scm (urandom-seed-shepherd-service): Return #f when
stopped.

Change-Id: I8212508e4a017270e4e9284b43170cd17999e8b4
---
 gnu/services/base.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)


base-commit: ada14197fb465c1c90efbc450308c14f077ff167
  

Patch

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 9a9dfdb3045..411a2247622 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -673,7 +673,8 @@  (define (urandom-seed-shepherd-service _)
                              (lambda (seed)
                                (put-bytevector seed buf)))
                            (umask previous-umask))
-                         #t)))))
+                         )))
+                   #f))
          (modules `((rnrs bytevectors)
                     (rnrs io ports)
                     ,@%default-modules)))))