From f633b8edb93da5e1dadca3fb05801212c2ee8887 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 27 Dec 2020 09:09:10 +0000 Subject: [PATCH] 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"))