me
/
guix
Archived
1
0
Fork 0
Code

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.
Guillaume Le Vaillant 2022-08-12 17:33:00 +02:00
parent fc408acd61
commit eecb5efad9
No known key found for this signature in database
GPG Key ID: 6BE8208ADF21FE3F
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/finance.scm
View File

@ -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")))