Download timeouts

private/server.rkt

@@ -11,6 +11,7 @@
          web-server/dispatch
          web-server/http
          web-server/http/json
+         web-server/safety-limits
          web-server/servlet-env
          "library.rkt"
          "player.rkt"
@@ -377,6 +378,10 @@
      #:listen-ip listen-ip
      #:port port
      #:connection-close? #t
+     ;; Content-Length responses use one timeout for the entire copy-port.
+     ;; Large lossless tracks can take several minutes over a healthy link.
+     #:safety-limits (make-safety-limits #:response-timeout 3600
+                                        #:response-send-timeout 3600)
      #:launch-browser? launch-browser?
      #:quit? #f
      #:banner? #t