diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-29 15:23:51 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-29 18:06:47 +0100 |
commit | 0bf61ef1ff4ec7c4e24d6315f9a24e55959ec594 (patch) | |
tree | b1e4254fb03ea9842c40ee6009f111b18cdb5679 | |
parent | 23fecf8f3d2469a3de4f7ffae16224b0d21cc265 (diff) | |
download | cuirass-0bf61ef1ff4ec7c4e24d6315f9a24e55959ec594.tar cuirass-0bf61ef1ff4ec7c4e24d6315f9a24e55959ec594.tar.gz |
http: Evaluate DB requests in 'non-blocking'.
* src/cuirass/http.scm (handle-builds-request): Wrap 'db-get-builds'
into 'non-blocking'.
-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) |