me/guix
Archived
1
0
Fork 0
Code Activity

gnu: monero-gui: Fix path to p2pool.

Browse source 
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:
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) (modify-inputs (package-inputs monero)
(append libgcrypt (append libgcrypt
monero monero
p2pool
qtbase-5 qtbase-5
qtdeclarative-5 qtdeclarative-5
qtgraphicaleffects qtgraphicaleffects
@ -870,6 +871,17 @@ the Monero command line client and daemon.")
(string-append (string-append
"set(CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fPIC\")\n" "set(CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fPIC\")\n"
all))))) 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 (replace 'install
(lambda _ (lambda _
(let ((bin (string-append #$output "/bin"))) (let ((bin (string-append #$output "/bin")))