diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-12-22 11:58:40 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-12-22 11:58:40 +0000 |
| commit | 6bc12db75a358b8cd03fd3193a0a51cb22a5d6e2 (patch) | |
| tree | c5ff8474bfce12de8ebf33cc0aa93be228c341e8 | |
| parent | 26a440be76e17df608407700302e12599d7dd681 (diff) | |
| download | build-coordinator-6bc12db75a358b8cd03fd3193a0a51cb22a5d6e2.tar build-coordinator-6bc12db75a358b8cd03fd3193a0a51cb22a5d6e2.tar.gz | |
Only show delay lines where the time is non 0
| -rw-r--r-- | guix-build-coordinator/utils.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 8f5054a..851ccd0 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -726,14 +726,17 @@ References: ~a~%" (simple-format #f "warning: delay of ~A seconds: ~A" (format-seconds elapsed-seconds) proc) - (map (match-lambda - ((proc duration depth) + (filter-map + (match-lambda + ((proc duration depth) + (if (>= duration 0.001) (string-append (make-string (* 2 depth) #\space) (simple-format #f "~A: ~A" (format-seconds duration) - proc)))) - trace)))) + proc)) + #f))) + trace)))) (display (string-append (string-join lines "\n") "\n"))) |