gnu: stlink: Use GEXPs.

* gnu/packages/embedded.scm (stlink): Use GEXPs.

Change-Id: I26e2649f29c1e742f848f3efc5a10c218bb5bb28
This commit is contained in:
Artyom V. Poptsov 2024-11-16 19:35:35 +03:00
parent 90c7d77833
commit 2e223bc57c
No known key found for this signature in database
GPG key ID: 935EBE0736DC857E

View file

@ -1653,14 +1653,13 @@ STC89, STC90, STC10, STC11, STC12, STC15, STC8 and STC32 series.")
"1g5ahnj400sdf75k3xafawa6x0pzz7s86nqnfd65gqjr3bdlhlc6")))) "1g5ahnj400sdf75k3xafawa6x0pzz7s86nqnfd65gqjr3bdlhlc6"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ;no tests (list #:tests? #f ;no tests
#:configure-flags #:configure-flags
(let* ((out (assoc-ref %outputs "out")) #~(let* ((etc (in-vicinity #$output "etc"))
(etc (in-vicinity out "etc")) (modprobe (in-vicinity etc "modprobe.d"))
(modprobe (in-vicinity etc "modprobe.d")) (udev-rules (in-vicinity etc "udev/rules.d")))
(udev-rules (in-vicinity etc "udev/rules.d"))) (list (string-append "-DSTLINK_UDEV_RULES_DIR=" udev-rules)
(list (string-append "-DSTLINK_UDEV_RULES_DIR=" udev-rules) (string-append "-DSTLINK_MODPROBED_DIR=" modprobe)))))
(string-append "-DSTLINK_MODPROBED_DIR=" modprobe)))))
(inputs (inputs
(list libusb)) (list libusb))
(synopsis "Programmer for STM32 Discovery boards") (synopsis "Programmer for STM32 Discovery boards")