01/01: gnu: acme-client: Provide path to certificates.

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit 7c1a7bf484cb6078798e132f16d1600b9a36349f
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)))