06/07: services: postgresql: Simplify execution of ‘initdb’.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6b138626e4dfed219941cc9e9466ec827493723d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Mar 29 23:13:32 2024 +0100

    services: postgresql: Simplify execution of ‘initdb’.
    
    * gnu/services/databases.scm (postgresql-activation): Replace
    ‘primitive-exit’ + ‘system*’ with ‘execl’.
    
    Change-Id: I491fd3093f67af59f240438d7d6123e769e4ec1e
---
 gnu/services/databases.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm
index cb85d18e21..fa332d7978 100644
--- a/gnu/services/databases.scm
+++ b/gnu/services/databases.scm
@@ -273,12 +273,9 @@ host       all     all     ::1/128         md5"))
                       (lambda ()
                         (setgid (passwd:gid user))
                         (setuid (passwd:uid user))
-                        (primitive-exit
-                         (apply system*
-                                initdb
-                                "-D"
-                                #$data-directory
-                                initdb-args)))
+                        (apply execl initdb
+                               initdb "-D" #$data-directory
+                               initdb-args))
                       (lambda ()
                         (primitive-exit 1))))
                  (pid (waitpid pid))))))))))