chore: remove debug phase-timing prints from mbrainz-bench
ober
cb2aa44dadd406ffa3053242c5c8bd50d8524f9c
--- a/benchmarks/mbrainz-bench.ss +++ b/benchmarks/mbrainz-bench.ss @@ -144,8 +144,7 @@ (transact! conn (mbrainz-schema-ops)) ;; ---- Phase 1: artists — collect eids for later reference ---- - (let ([artist-eids '()] - [t-p1-start (now-ms)]) + (let ([artist-eids '()]) (let loop ([i 0] [batch '()]) (cond [(= i num-artists) @@ -164,10 +163,8 @@ (loop (+ i 1) '())) (loop (+ i 1) b)))])) - (displayln " Phase 1 (artists): " (inexact->exact (round (- (now-ms) t-p1-start))) " ms") ;; ---- Phase 2: releases — flat pass, batch by batch ---- - (let ([total-releases 0] - [t-p2-start (now-ms)]) + (let ([total-releases 0]) (let loop ([eids artist-eids] [batch '()]) (cond [(null? eids) @@ -192,10 +189,8 @@ (loop (cdr eids) '())) (loop (cdr eids) b)))])) - (displayln " Phase 2 (releases): " (inexact->exact (round (- (now-ms) t-p2-start))) " ms") ;; ---- Phase 3: tracks — flat pass, batch by batch ---- - (let ([total-tracks 0] - [t-p3-start (now-ms)]) + (let ([total-tracks 0]) (let loop ([eids artist-eids] [batch '()]) (cond [(null? eids) @@ -218,7 +213,6 @@ (loop (cdr eids) b)))])) - (displayln " Phase 3 (tracks): " (inexact->exact (round (- (now-ms) t-p3-start))) " ms") (list 'artists (length artist-eids) 'releases total-releases 'tracks total-tracks))))))