about summary refs log tree commit diff
path: root/guix
diff options
context:
space:
mode:
Diffstat (limited to 'guix')
-rw-r--r--guix/forge/acme.scm14
1 files changed, 8 insertions, 6 deletions
diff --git a/guix/forge/acme.scm b/guix/forge/acme.scm
index 4142fe2..5ec27bb 100644
--- a/guix/forge/acme.scm
+++ b/guix/forge/acme.scm
@@ -496,12 +496,14 @@ unspecified. If no element matching @var{pred} is found, return
                                       ;; Combine deploy hooks of the
                                       ;; two certificates.
                                       (deploy-hook
-                                       (with-imported-modules '((guix build utils))
-                                         #~(begin
-                                             (use-modules (guix build utils))
-
-                                             (invoke #$(acme-certificate-deploy-hook certificate))
-                                             (invoke #$(acme-certificate-deploy-hook matched-certificate))))))
+                                       (program-file (string-append (first (acme-certificate-domains certificate))
+                                                                    "-certificate-deploy-hook")
+                                                     (with-imported-modules '((guix build utils))
+                                                       #~(begin
+                                                           (use-modules (guix build utils))
+
+                                                           (invoke #$(acme-certificate-deploy-hook certificate))
+                                                           (invoke #$(acme-certificate-deploy-hook matched-certificate)))))))
                                      other-certificates))))
                         (else
                          (cons certificate previous-certificates))))