25/155: gnu: acme-client: Provide path to certificates.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 5e5f0d7d2d8483a242db2ef1376ac3e8f7c4f0a4
Author: Leo Famulari <address@hidden>
Date:   Mon Dec 12 21:04:43 2016 -0500

    gnu: acme-client: Provide path to certificates.
    
    * gnu/packages/tls.scm (acme-client)[arguments]: Add 'patch-paths' phase.
---
 gnu/packages/tls.scm |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index f5ffe42..e577421 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -717,6 +717,13 @@ number generator")
              (string-append "PREFIX=" (assoc-ref %outputs "out")))
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'patch-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((pem (string-append (assoc-ref inputs "libressl")
+                                       "/etc/ssl/cert.pem")))
+               (substitute* "http.c"
+                 (("/etc/ssl/cert.pem") pem))
+               #t)))
          (delete 'configure)))) ; no './configure' script
     (native-inputs
      `(("pkg-config" ,pkg-config)))