summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-06-21 00:32:07 +0200
committerLudovic Courtès <ludo@gnu.org>2013-06-21 00:32:07 +0200
commit4ca968eb954c0a8c166c8cd390024cdafdb9e416 (patch)
treeea4d456029673bf2b55485dd9baa876a6b5b6549
parent56c092ce94cee893898f71ce61e443dd121cccdb (diff)
build-system/gnu: Save `environment-variables' after each phase.
* guix/build/gnu-build-system.scm (set-paths): Move `system' call to... (gnu-build): ... here.
-rw-r--r--guix/build/gnu-build-system.scm18
1 files changed, 10 insertions, 8 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 4245f2aefd..8ccf27a1b1 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -87,8 +87,7 @@
#: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 @@ in order. Return #t if all the PHASES succeeded, #f otherwise."
(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))