cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add parse-build-status to the query-parameters module

Browse source
This commit is contained in:
Christopher Baines 2020-12-27 09:09:10 +00:00
parent f58fe208fd
commit f633b8edb9
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/web/query-parameters.scm
View file

@ -19,6 +19,7 @@
(define-module (guix-data-service web query-parameters) (define-module (guix-data-service web query-parameters)
#:use-module (guix-data-service web util) #:use-module (guix-data-service web util)
#:use-module (guix-data-service model build-status)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-9 gnu)
@ -45,6 +46,7 @@
parse-result-limit parse-result-limit
parse-system parse-system
parse-target parse-target
parse-build-status
parse-derivation-build-status parse-derivation-build-status
valid-targets->options)) valid-targets->options))
@ -236,6 +238,14 @@
"" ""
target)) 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 (parse-derivation-build-status status)
(define options (define options
'("none" "working" "failing" "unknown")) '("none" "working" "failing" "unknown"))