06/12: gnu: electrum: Fix share/ location.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit a2765029c2e2fbbf5e9d548a7a635a373cccbf7e
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Mon Aug 24 04:21:42 2020 +0200

    gnu: electrum: Fix share/ location.
    
    * gnu/packages/finance.scm (electrum)[arguments]: Rename the ‘patch-home’
    phase to ‘fix-prefix’.  Do so.
---
 gnu/packages/finance.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 12da422..332142f 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -458,12 +458,16 @@ do so.")
      `(#:tests? #f                      ; no tests
        #:phases
        (modify-phases %standard-phases
-         (add-before 'build 'patch-home
+         (add-after 'unpack 'fix-prefix
            (lambda* (#:key outputs #:allow-other-keys)
-             (substitute* "setup.py"
-               (("~/.local/share")
-                (string-append (assoc-ref outputs "out") "/local/share")))
-             #t)))))
+             (let ((out (assoc-ref outputs "out")))
+               ;; setup.py installs to ~/.local/share if sys.prefix/share isn't
+               ;; writable.  sys.prefix points to Python's, not our, --prefix.
+               (mkdir-p (string-append out "/share"))
+               (substitute* "setup.py"
+                 (("sys\\.prefix")
+                  (format #f "\"~a\"" out)))
+               #t))))))
     (home-page "https://electrum.org/";)
     (synopsis "Bitcoin wallet")
     (description