nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: freefall: Return #t from all phases. 

* gnu/packages/linux.scm (freefall)[arguments]: Return #t from all phase
procedures.
This commit is contained in:
Mark H Weaver 2018-03-16 02:16:06 -04:00
parent 90a54e3674
commit 2ee42f7e32
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/packages/linux.scm
View File

@ -3292,14 +3292,16 @@ disks and SD cards. This package provides the userland utilities.")
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-after 'unpack 'enter-subdirectory (add-after 'unpack 'enter-subdirectory
(lambda _ (lambda _
(chdir "tools/laptop/freefall"))) (chdir "tools/laptop/freefall")
#t))
(delete 'configure) (delete 'configure)
(add-before 'build 'increase-timeout (add-before 'build 'increase-timeout
(lambda _ (lambda _
;; The default of 2 seconds is too low: it assumes an ;; The default of 2 seconds is too low: it assumes an
;; open lid and AC power without actually checking. ;; open lid and AC power without actually checking.
(substitute* "freefall.c" (substitute* "freefall.c"
(("alarm\\(2\\)") "alarm(5)"))))) (("alarm\\(2\\)") "alarm(5)"))
#t)))
#:make-flags (list (string-append "PREFIX=" #:make-flags (list (string-append "PREFIX="
(assoc-ref %outputs "out"))) (assoc-ref %outputs "out")))
#:tests? #f)) ;no tests #:tests? #f)) ;no tests