Support querying builds by status

guix-data-service/web/build/controller.scm

@@ -20,9 +20,18 @@
   #:use-module (guix-data-service web render)
   #:use-module (guix-data-service web query-parameters)
   #:use-module (guix-data-service model build)
+  #:use-module (guix-data-service model build-status)
   #:use-module (guix-data-service web build html)
   #:export (build-controller))
 
+(define (parse-build-status status)
+  (if (member status build-status-strings)
+      status
+      (make-invalid-query-parameter
+       status
+       (string-append "unknown build status: "
+                      status))))
+
 (define (build-controller request
                           method-and-path-components
                           mime-types
@@ -30,11 +39,27 @@
                           conn)
   (match method-and-path-components
     (('GET "builds")
-     (render-builds mime-types
+     (render-builds request
+                    mime-types
                     conn))
     (_ #f)))
 
-(define (render-builds mime-types conn)
-  (render-html
-   #:sxml (view-builds (select-build-stats conn)
-                       (select-builds-with-context conn))))
+(define (render-builds request mime-types conn)
+  (let ((parsed-query-parameters
+         (parse-query-parameters
+          request
+          `((build_status ,parse-build-status #:multi-value)))))
+    (if (any-invalid-query-parameters? parsed-query-parameters)
+        (render-html
+         #:sxml (view-builds parsed-query-parameters
+                             build-status-strings
+                             '()
+                             '()))
+        (render-html
+         #:sxml (view-builds parsed-query-parameters
+                             build-status-strings
+                             (select-build-stats conn)
+                             (select-builds-with-context
+                              conn
+                              (assq-ref parsed-query-parameters
+                                        'build_status)))))))

guix-data-service/web/build/html.scm

@@ -21,7 +21,7 @@
   #:use-module (guix-data-service web view html)
   #:export (view-builds))
 
-(define (view-builds stats builds)
+(define (view-builds query-parameters build-status-strings stats builds)
   (layout
    #:body
    `(,(header)
@@ -46,6 +46,29 @@
                   (td ,(build-status-span status))
                   (td ,count))))
              stats)))))
+      (div
+       (@ (class "row"))
+       (div
+        (@ (class "col-md-12"))
+        (div
+         (@ (class "well"))
+         (form
+          (@ (method "get")
+             (action "")
+             (class "form-horizontal"))
+          ,(form-horizontal-control
+            "Build status" query-parameters
+            #:options
+            (map (lambda (build-status)
+                   (cons (build-status-value->display-string build-status)
+                         build-status))
+                 build-status-strings)
+            #:help-text "Return builds with these statuses.")
+          (div (@ (class "form-group form-group-lg"))
+               (div (@ (class "col-sm-offset-2 col-sm-10"))
+                    (button (@ (type "submit")
+                               (class "btn btn-lg btn-primary"))
+                            "Update results")))))))
       (div
        (@ (class "row"))
        (div