gnu: monero: Update to 0.17.3.2.

* gnu/packages/finance.scm (monero): Update to 0.17.3.2.
  [source]: Remove obsolete part of snippet.
  [arguments]: Remove trailing booleans.
This commit is contained in:
Guillaume Le Vaillant 2022-05-06 14:26:43 +02:00
parent 53628d6e3b
commit 4188d211c7
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -664,7 +664,7 @@ (define-public monero
;; the system's dynamically linked library. ;; the system's dynamically linked library.
(package (package
(name "monero") (name "monero")
(version "0.17.3.0") (version "0.17.3.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -681,15 +681,9 @@ (define-public monero
(for-each (for-each
delete-file-recursively delete-file-recursively
'("external/miniupnp" "external/rapidjson" '("external/miniupnp" "external/rapidjson"
"external/unbound")) "external/unbound"))))
;; TODO: Remove the following when upgrading to a newer tagged
;; version as it will already contain the fix for Boost 1.76.
(substitute* "contrib/epee/include/storages/portable_storage.h"
(("#include \"int-util.h\"" all)
(string-append all "\n#include <boost/mpl/contains.hpp>")))
#t))
(sha256 (sha256
(base32 "1spsf7m3x4psp9s7mivr6x4886jnbq4i8ll2dl8bv5bsdhcd3pjm")))) (base32 "19sgcbli7fc1l6ms7ma6hcz1mmpbnd296lc8a19rl410acpv45zy"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
(list doxygen (list doxygen
@ -726,21 +720,18 @@ (define-public monero
;; tests/core_tests need a valid HOME ;; tests/core_tests need a valid HOME
(add-before 'configure 'set-home (add-before 'configure 'set-home
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))))
#t))
(add-after 'set-home 'change-log-path (add-after 'set-home 'change-log-path
(lambda _ (lambda _
(substitute* "contrib/epee/src/mlog.cpp" (substitute* "contrib/epee/src/mlog.cpp"
(("epee::string_tools::get_current_module_folder\\(\\)") (("epee::string_tools::get_current_module_folder\\(\\)")
"\".bitmonero\"") "\".bitmonero\"")
(("return \\(") (("return \\(")
"return ((std::string(getenv(\"HOME\"))) / ")) "return ((std::string(getenv(\"HOME\"))) / "))))
#t))
(add-after 'change-log-path 'fix-file-permissions-for-tests (add-after 'change-log-path 'fix-file-permissions-for-tests
(lambda _ (lambda _
(for-each make-file-writable (for-each make-file-writable
(find-files "tests/data/" "wallet_9svHk1.*")) (find-files "tests/data/" "wallet_9svHk1.*"))))
#t))
;; Only try tests that don't need access to network or system ;; Only try tests that don't need access to network or system
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
@ -768,8 +759,7 @@ (define-public monero
(add-after 'install 'delete-unused-files (add-after 'install 'delete-unused-files
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(delete-file-recursively (string-append out "/include"))) (delete-file-recursively (string-append out "/include"))))))))
#t)))))
(home-page "https://web.getmonero.org/") (home-page "https://web.getmonero.org/")
(synopsis "Command-line interface to the Monero currency") (synopsis "Command-line interface to the Monero currency")
(description (description