ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-18 20:57:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: acpi-call-linux-module: Use G-expressions.

Browse source 
* gnu/packages/linux.scm (acpi-call-linux-module)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2021-12-26 07:39:42 +01:00
parent 2e86059172
commit 2be5454ead
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/linux.scm
View file

@ -1197,20 +1197,20 @@ (define-public acpi-call-linux-module
(base32 "1s7h9y3adyfhw7cjldlfmid79lrwz3vqlvziw9nwd6x5qdj4w9vp"))))
(build-system linux-module-build-system)
(arguments
`(#:tests? #f ; no tests
(list #:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-before 'install 'patch-shebangs-harder
;; The (only) shebangs in examples/ don't justify a reference.
;; However, do substitute a more portable one than the original.
;; However, do substitute a slightly more portable one.
(lambda _
(substitute* (find-files "examples" ".")
(("^(#! *)/[^ ]*/" _ shebang)
(string-append shebang "/usr/bin/env ")))))
(add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/" ,name "-" ,version)))
(lambda _
(let* ((doc (string-append #$output "/share/doc/"
#$name "-" #$version)))
(for-each (lambda (file)
(let ((target (string-append doc "/" file)))
(mkdir-p (dirname target))