ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: axoloti-runtime: Use INVOKE.

Browse source 
* gnu/packages/axoloti.scm (axoloti-runtime)[arguments]: Use INVOKE and return
  #T from build phases unconditionally.
This commit is contained in:
Ricardo Wurmus 2019-01-24 23:06:33 +01:00
parent 6e59d91af1
commit 1ae04a2acc
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/axoloti.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -94,10 +94,10 @@ (define-public axoloti-runtime
(add-after 'unpack 'patch-paths (add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; prepare ChibiOS ;; prepare ChibiOS
(and (zero? (system* "unzip" "-o" (assoc-ref inputs "chibios"))) (invoke "unzip" "-o" (assoc-ref inputs "chibios"))
(zero? (system* "mv" "ChibiOS_2.6.9" "chibios")) (invoke "mv" "ChibiOS_2.6.9" "chibios")
(with-directory-excursion "chibios/ext" (with-directory-excursion "chibios/ext"
(zero? (system* "unzip" "-o" "fatfs-0.9-patched.zip")))) (invoke "unzip" "-o" "fatfs-0.9-patched.zip"))
;; Remove source of non-determinism in ChibiOS ;; Remove source of non-determinism in ChibiOS
(substitute* "chibios/os/various/shell.c" (substitute* "chibios/os/various/shell.c"
@ -149,7 +149,7 @@ (define-public axoloti-runtime
(string-append toolchain (string-append toolchain
"/arm-none-eabi/lib"))) "/arm-none-eabi/lib")))
(with-directory-excursion "platform_linux" (with-directory-excursion "platform_linux"
(zero? (system* "sh" "compile_firmware.sh"))))) (invoke "sh" "compile_firmware.sh"))))
(replace 'install (replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))