diff options
| -rw-r--r-- | guix-build-coordinator/utils.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 6a69c94..0dd1473 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -514,11 +514,12 @@ References: ~a~%" (lambda vals (let* ((end (current-time time-utc)) (elapsed (time-difference end start))) - (format (current-output-port) - "~a took ~a seconds~%" - name - (+ (time-second elapsed) - (/ (time-nanosecond elapsed) 1e9))) + (display + (format #f + "~a took ~a seconds~%" + name + (+ (time-second elapsed) + (/ (time-nanosecond elapsed) 1e9)))) (apply values vals)))))) (define-syntax-rule (with-time-logging name exp ...) |