TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki 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 @@ (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")))