http: /api/latestbuilds only returns finished builds.

* src/cuirass/database.scm (db-get-builds)[format-where-clause]:
Honor (status done) filter.
* src/cuirass/http.scm (url-handler): Always add (status done)
to the filters passed to 'handle-builds-request'.

src/cuirass/database.scm

@@ -303,7 +303,7 @@ INNER JOIN Specifications ON Evaluations.specification = Specifications.repo_nam
 (define (db-get-builds db filters)
   "Retrieve all builds in database DB which are matched by given FILTERS.
 FILTERS is an assoc list which possible keys are 'project | 'jobset | 'job |
-'system | 'nr | 'order."
+'system | 'nr | 'order | 'status."
 
   (define (format-where-clause filters)
     (let ((where-clause
@@ -318,6 +318,8 @@ FILTERS is an assoc list which possible keys are 'project | 'jobset | 'job |
                  (format #f "Derivations.job_name='~A'" job))
                 (('system system)
                  (format #f "Derivations.system='~A'" system))
+                (('status 'done)
+                 "Builds.status >= 0")
                 (_ #f)))
             filters)))
       (if (> (length where-clause) 0)

src/cuirass/http.scm

@@ -149,8 +149,11 @@
             ;; 'nr parameter is mandatory to limit query size.
             (valid-params? (assq-ref params 'nr)))
        (if valid-params?
+           ;; Limit results to builds that are "done".
            (respond-json (object->json-string
-                          (handle-builds-request db params)))
+                          (handle-builds-request db
+                                                 `((status done)
+                                                   ,@params))))
            (respond-json-with-error 500 "Parameter not defined!"))))
     (_
      (respond (build-response #:code 404)