diff options
Diffstat (limited to 'src/cuirass/http.scm')
-rw-r--r-- | src/cuirass/http.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index b8a2996..9541844 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -67,8 +67,11 @@ (define (handle-builds-request db filters) "Retrieve all builds matched by FILTERS in DB and convert them to hydra format." - (let ((builds (with-time-logging "builds request" - (db-get-builds db filters)))) + ;; Since these requests can take several seconds (!), run them through + ;; 'non-blocking'. + (let ((builds (non-blocking + (with-time-logging "builds request" + (db-get-builds db filters))))) (map build->hydra-build builds))) (define (request-parameters request) |