diff options
| author | W. Kosior <koszko@koszko.org> | 2024-09-04 15:32:11 +0200 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2025-05-26 14:07:21 +0200 |
| commit | f36d8de5e7a9ef5cc759fea8dacc640279f21da4 (patch) | |
| tree | b6bbdb6090bb09664d2edef585b7b2931bb45dc6 | |
| parent | dbf2f911e4dbc51bdfd4533bae5c639b875b0214 (diff) | |
| download | guix-f36d8de5e7a9ef5cc759fea8dacc640279f21da4.tar.gz guix-f36d8de5e7a9ef5cc759fea8dacc640279f21da4.zip | |
services: Update Exim service to use `privileged-program' API.
Uses of deprecated `setuid-program' get replaced with new
`privileged-program'.
* gnu/services/mail.scm (exim-setuids): Call `privileged-program' record
constructor macro.
(exim-service-type): Extend `privileged-program-service-type'
Change-Id: Idb00e45ddcc50a37303dc50fe1feef73a109f219
| -rw-r--r-- | gnu/services/mail.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm index 5b4ff6f985..20ae20302d 100644 --- a/gnu/services/mail.scm +++ b/gnu/services/mail.scm @@ -1926,7 +1926,7 @@ database---computed from the given alias list."))) (match-lambda (($ <exim-configuration> package config-file setuid-user setgid-group) (if (or setuid-user setgid-group) - (list (setuid-program + (list (privileged-program (program (file-append package "/bin/exim")) (setuid? #t) (user (or setuid-user "exim")) @@ -1943,7 +1943,7 @@ database---computed from the given alias list."))) (service-extension activation-service-type exim-activation) (service-extension profile-service-type exim-profile) (service-extension mail-aliases-service-type (const '())) - (service-extension setuid-program-service-type exim-setuids))) + (service-extension privileged-program-service-type exim-setuids))) (description "Run the Exim mail transfer agent (MTA)."))) |