Increase default number of concurrent workers from 5 to 20

[tt.git] / tt.rkt

diff --git a/tt.rkt b/tt.rkt
index 16dffac..58419dc 100644 (file)
--- a/tt.rkt
+++ b/tt.rkt
@@ -1024,9 +1024,7 @@
 (define (dispatch command)
   (match command
     [(or "d" "download")
-     ; Initially, 15 was fastest out of the tried: 1, 5, 10, 20.  Then I
-     ; started noticing significant slowdowns. Reducing to 5 seems to help.
-     (let ([num-workers 5]
+     (let ([num-workers 20] ; 20 was fastest out of the tried: 1, 5, 10, 20, 25, 30.
            [timeout     10.0])
        (command-line
          #:program "tt download"