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

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

* 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 @@
#:separator separator))) #:separator separator)))
native-search-paths)) native-search-paths))
;; Dump the environment variables as a shell script, for handy debugging. #t)
(system "export > environment-variables"))
(define* (unpack #:key source #:allow-other-keys) (define* (unpack #:key source #:allow-other-keys)
(and (zero? (system* "tar" "xvf" source)) (and (zero? (system* "tar" "xvf" source))
@ -316,10 +315,13 @@ in order. Return #t if all the PHASES succeeded, #f otherwise."
(every (match-lambda (every (match-lambda
((name . proc) ((name . proc)
(let ((start (gettimeofday))) (let ((start (gettimeofday)))
(format #t "starting phase `~a'~%" name) (format #t "starting phase `~a'~%" name)
(let ((result (apply proc args)) (let ((result (apply proc args))
(end (gettimeofday))) (end (gettimeofday)))
(format #t "phase `~a' ~:[failed~;succeeded~] after ~a seconds~%" (format #t "phase `~a' ~:[failed~;succeeded~] after ~a seconds~%"
name result (- (car end) (car start))) name result (- (car end) (car start)))
result))))
;; Dump the environment variables as a shell script, for handy debugging.
(system "export > $NIX_BUILD_TOP/environment-variables")
result))))
phases)) phases))