me/guix
Archived
1
0
Fork 0
Code Activity

gnu: hackrf: Improve style.

Browse source 
* gnu/packages/radio.scm (hackrf)[source]: Use new URL.
  [arguments]: Use gexps. Remove trailing booleans.
This commit is contained in:
Guillaume Le Vaillant 2022-12-14 17:10:54 +01:00
parent e5602a2747
commit d94f7a7b53
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 18 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
gnu/packages/radio.scm
View file

@ -1174,34 +1174,30 @@ for correctness.")
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/mossmann/hackrf") (url "https://github.com/greatscottgadgets/hackrf")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0m9j160q5zb3jimszv1lb6j76zf5lwijvpfl1k28d832rh847vvk")))) (base32 "0m9j160q5zb3jimszv1lb6j76zf5lwijvpfl1k28d832rh847vvk"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:configure-flags (list #:configure-flags
(list "-DUDEV_RULES_GROUP=dialout" #~(list "-DUDEV_RULES_GROUP=dialout"
(string-append "-DUDEV_RULES_PATH=" (string-append "-DUDEV_RULES_PATH="
(assoc-ref %outputs "out") #$output
"/lib/udev/rules.d")) "/lib/udev/rules.d"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'enter-source-directory (add-before 'configure 'enter-source-directory
(lambda _ (lambda _
(chdir "host") (chdir "host")))
#t)) (add-after 'install 'delete-static-library
(add-after 'install 'delete-static-library (lambda _
(lambda* (#:key outputs #:allow-other-keys) (delete-file (string-append #$output "/lib/libhackrf.a"))))
(delete-file (string-append (assoc-ref outputs "out") (add-before 'install-license-files 'leave-source-directory
"/lib/libhackrf.a")) (lambda _
#t)) (chdir ".."))))
(add-before 'install-license-files 'leave-source-directory #:tests? #f)) ; no test suite
(lambda _
(chdir "..")
#t)))
#:tests? #f)) ; no test suite
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs