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

build-system/gnu: Save `environment-variables' after each phase.

Browse source 
* guix/build/gnu-build-system.scm (set-paths): Move `system' call to...
  (gnu-build): ... here.
This commit is contained in:
Ludovic Courtès 2013-06-21 00:32:07 +02:00
parent 56c092ce94
commit 4ca968eb95
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guix/build/gnu-build-system.scm
View file

@ -87,8 +87,7 @@ (define native-input-directories
#:separator separator)))
native-search-paths))
;; Dump the environment variables as a shell script, for handy debugging.
(system "export > environment-variables"))
#t)
(define* (unpack #:key source #:allow-other-keys)
(and (zero? (system* "tar" "xvf" source))
@ -316,10 +315,13 @@ (define* (gnu-build #:key (source #f) (outputs #f) (inputs #f)
(every (match-lambda
((name . proc)
(let ((start (gettimeofday)))
(format #t "starting phase `~a'~%" name)
(let ((result (apply proc args))
(end (gettimeofday)))
(format #t "phase `~a' ~:[failed~;succeeded~] after ~a seconds~%"
name result (- (car end) (car start)))
result))))
(format #t "starting phase `~a'~%" name)
(let ((result (apply proc args))
(end (gettimeofday)))
(format #t "phase `~a' ~:[failed~;succeeded~] after ~a seconds~%"
name result (- (car end) (car start)))
;; Dump the environment variables as a shell script, for handy debugging.
(system "export > $NIX_BUILD_TOP/environment-variables")
result))))
phases))