From 6b138626e4dfed219941cc9e9466ec827493723d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 29 Mar 2024 23:13:32 +0100
Subject: [PATCH] =?UTF-8?q?services:=20postgresql:=20Simplify=20execution?=
 =?UTF-8?q?=20of=20=E2=80=98initdb=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 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 @@ (define postgresql-activation
                       (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))))))))))