mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-02 08:07:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: tpacpi-bat: Update to 3.2.

Browse source 
* gnu/packages/linux.scm (tpacpi-bat): Update to 3.2.
[arguments]: Don't explicitly return #t from phases.
linux tpacpi-bat
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-16 02:00:03 +02:00
parent 1d837aaa32
commit 4267580a53
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/linux.scm
View file

@ -6357,7 +6357,7 @@ (define-public thinkfan
(define-public tpacpi-bat (define-public tpacpi-bat
(package (package
(name "tpacpi-bat") (name "tpacpi-bat")
(version "3.1") (version "3.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -6366,7 +6366,7 @@ (define-public tpacpi-bat
(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 "0wbaz34z99gqx721alh5vmpxpj2yxg3x9m8jqyivfi1wfpwc2nd5")))) (base32 "0nd8s2bqbhl0sjpflphb4l9ix71p7kvnbvkq4dg9a1v0sxafyygm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no test target `(#:tests? #f ; no test target
@ -6380,8 +6380,7 @@ (define-public tpacpi-bat
;; tpacpi-bat modprobes the acpi_call kernel module if it's not ;; tpacpi-bat modprobes the acpi_call kernel module if it's not
;; loaded. That's the administrator's prerogative; disable it. ;; loaded. That's the administrator's prerogative; disable it.
(("system \"(modprobe .*)\"" _ match) (("system \"(modprobe .*)\"" _ match)
(format #f "die \"Please run ‘~a’ first.\\n\"" match))) (format #f "die \"Please run ‘~a’ first.\\n\"" match)))))
#t))
(delete 'configure) ; nothing to configure (delete 'configure) ; nothing to configure
(delete 'build) ; nothing to build (delete 'build) ; nothing to build
(replace 'install (replace 'install
@ -6396,8 +6395,7 @@ (define-public tpacpi-bat
(let ((target (string-append doc "/" file))) (let ((target (string-append doc "/" file)))
(mkdir-p (dirname target)) (mkdir-p (dirname target))
(copy-recursively file target))) (copy-recursively file target)))
(list "battery_asl" "examples" "README.md")) (list "battery_asl" "examples" "README.md"))))))))
#t))))))
(inputs (inputs
(list perl)) (list perl))
(home-page "https://github.com/teleshoes/tpacpi-bat") (home-page "https://github.com/teleshoes/tpacpi-bat")