01/02: Add parse-build-status to the query-parameters module

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit f633b8edb93da5e1dadca3fb05801212c2ee8887
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Dec 27 09:09:10 2020 +0000

    Add parse-build-status to the query-parameters module
---
 guix-data-service/web/query-parameters.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/guix-data-service/web/query-parameters.scm 
b/guix-data-service/web/query-parameters.scm
index 6be4848..615cd81 100644
--- a/guix-data-service/web/query-parameters.scm
+++ b/guix-data-service/web/query-parameters.scm
@@ -19,6 +19,7 @@
 
 (define-module (guix-data-service web query-parameters)
   #:use-module (guix-data-service web util)
+  #:use-module (guix-data-service model build-status)
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9 gnu)
@@ -45,6 +46,7 @@
             parse-result-limit
             parse-system
             parse-target
+            parse-build-status
             parse-derivation-build-status
 
             valid-targets->options))
@@ -236,6 +238,14 @@
       ""
       target))
 
+(define (parse-build-status status)
+  (if (member status build-status-strings)
+      status
+      (make-invalid-query-parameter
+       status
+       (string-append "unknown build status: "
+                      status))))
+
 (define (parse-derivation-build-status status)
   (define options
     '("none" "working" "failing" "unknown"))