me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/linux.scm (acpi-call-linux-module)[arguments]:
Rewrite as G-expressions.
master
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 @@ It has been modified to remove all non-free binary blobs.")
(base32 "1s7h9y3adyfhw7cjldlfmid79lrwz3vqlvziw9nwd6x5qdj4w9vp")))) (base32 "1s7h9y3adyfhw7cjldlfmid79lrwz3vqlvziw9nwd6x5qdj4w9vp"))))
(build-system linux-module-build-system) (build-system linux-module-build-system)
(arguments (arguments
`(#:tests? #f ; no tests (list #:tests? #f ; no tests
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'install 'patch-shebangs-harder (add-before 'install 'patch-shebangs-harder
;; The (only) shebangs in examples/ don't justify a reference. ;; 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 _ (lambda _
(substitute* (find-files "examples" ".") (substitute* (find-files "examples" ".")
(("^(#! *)/[^ ]*/" _ shebang) (("^(#! *)/[^ ]*/" _ shebang)
(string-append shebang "/usr/bin/env "))))) (string-append shebang "/usr/bin/env ")))))
(add-after 'install 'install-documentation (add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((doc (string-append #$output "/share/doc/"
(doc (string-append out "/share/doc/" ,name "-" ,version))) #$name "-" #$version)))
(for-each (lambda (file) (for-each (lambda (file)
(let ((target (string-append doc "/" file))) (let ((target (string-append doc "/" file)))
(mkdir-p (dirname target)) (mkdir-p (dirname target))