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.
This commit is contained in:
parent
fc408acd61
commit
eecb5efad9
|
@ -837,6 +837,7 @@ (define-public monero-gui
|
|||
(modify-inputs (package-inputs monero)
|
||||
(append libgcrypt
|
||||
monero
|
||||
p2pool
|
||||
qtbase-5
|
||||
qtdeclarative-5
|
||||
qtgraphicaleffects
|
||||
|
@ -870,6 +871,17 @@ (define-public monero-gui
|
|||
(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")))
|
||||
|
|
Loading…
Reference in a new issue