03/03: gnu: monero-gui: Fix path to p2pool.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit eecb5efad92b8f7cb5bbea0be66c4707a749512c
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Fri Aug 12 17:33:00 2022 +0200

    gnu: monero-gui: Fix path to p2pool.
    
    Fixes <https://issues.guix.gnu.org/55512>.
    
    * gnu/packages/finance.scm (monero-gui)[inputs]: Add p2pool.
      [arguments]: Add 'fix-p2pool-path' phase.
---
 gnu/packages/finance.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 55a2dd9580..c72d7a1429 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -837,6 +837,7 @@ the Monero command line client and daemon.")
      (modify-inputs (package-inputs monero)
        (append libgcrypt
                monero
+               p2pool
                qtbase-5
                qtdeclarative-5
                qtgraphicaleffects
@@ -870,6 +871,17 @@ the Monero command line client and daemon.")
                       (string-append
                        "set(CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fPIC\")\n"
                        all)))))
+               (add-after 'unpack 'fix-p2pool-path
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "src/p2pool/P2PoolManager.cpp"
+                     ;; Location for files created by P2Pool
+                     (("m_p2poolPath = 
QApplication::applicationDirPath\\(\\);")
+                      "m_p2poolPath = 
QStandardPaths::writableLocation(QStandardPaths::CacheLocation);")
+                     ;; Location of p2pool program
+                     (("m_p2pool = m_p2poolPath \\+ \"/p2pool\";")
+                      (string-append "m_p2pool = \""
+                                     (search-input-file inputs "/bin/p2pool")
+                                     "\";")))))
                (replace 'install
                  (lambda _
                    (let ((bin (string-append #$output "/bin")))