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

hydra: evaluate: Use 'with-build-handler'.

Browse source 
* build-aux/hydra/evaluate.scm (command-line): Remove 'set!' for
'build-things'.  Use 'with-build-handler' instead.
* build-aux/hydra/gnu-system.scm (hydra-jobs): Add comment about
removing 'show-what-to-build' call.
This commit is contained in:
Ludovic Courtès 2020-03-22 12:41:28 +01:00
parent 91601790d0
commit 66a198c807
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 38 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
build-aux/hydra/evaluate.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -24,6 +24,7 @@
(use-modules (guix store) (use-modules (guix store)
(guix git-download) (guix git-download)
((guix build utils) #:select (with-directory-excursion)) ((guix build utils) #:select (with-directory-excursion))
((guix ui) #:select (build-notifier))
(srfi srfi-19) (srfi srfi-19)
(ice-9 match) (ice-9 match)
(ice-9 pretty-print) (ice-9 pretty-print)
@ -89,17 +90,10 @@ (define (assert-valid-job job thing)
#:use-substitutes? #f #:use-substitutes? #f
#:substitute-urls '()) #:substitute-urls '())
;; Grafts can trigger early builds. We do not want that to happen ;; The evaluation of Guix itself requires building a "trampoline"
;; during evaluation, so use a sledgehammer to catch such problems. ;; program, and possibly everything it depends on. Thus, allow builds
;; An exception, though, is the evaluation of Guix itself, which ;; but print a notification.
;; requires building a "trampoline" program. (with-build-handler (build-notifier #:use-substitutes? #f)
(set! build-things
(lambda (store . args)
(format (current-error-port)
"warning: building things during evaluation~%")
(format (current-error-port)
"'build-things' arguments: ~s~%" args)
(apply real-build-things store args)))
;; Add %TOP-SRCDIR to the store with a proper Git predicate so we work ;; Add %TOP-SRCDIR to the store with a proper Git predicate so we work
;; from a clean checkout ;; from a clean checkout
@ -131,7 +125,7 @@ (define (assert-valid-job job thing)
(assert-valid-job job (assert-valid-job job
(call-with-time-display thunk)))) (call-with-time-display thunk))))
names thunks))) names thunks)))
port))))) port))))))
((command _ ...) ((command _ ...)
(format (current-error-port) "Usage: ~a FILE [cuirass] (format (current-error-port) "Usage: ~a FILE [cuirass]
Evaluate the Hydra or Cuirass jobs defined in FILE.~%" Evaluate the Hydra or Cuirass jobs defined in FILE.~%"

2
build-aux/hydra/gnu-system.scm
View file

@ -65,6 +65,8 @@ (define derivation
(run-with-store store (run-with-store store
(channel-instances->derivation (list instance)))) (channel-instances->derivation (list instance))))
;; TODO: Remove 'show-what-to-build' call when Cuirass' 'evaluate' scripts
;; uses 'with-build-handler'.
(show-what-to-build store (list derivation)) (show-what-to-build store (list derivation))
(build-derivations store (list derivation)) (build-derivations store (list derivation))