diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm index dbf2e65..41e9beb 100644 --- a/guix-data-service/web/query-parameters.scm +++ b/guix-data-service/web/query-parameters.scm @@ -40,6 +40,7 @@ query-parameters->string parse-datetime + parse-checkbox-value parse-result-limit)) (define (parse-query-string query) @@ -161,6 +162,7 @@ (define (value->text value) (match value (#f "") + (#t "on") ((? date? date) (date->string date "~1 ~3")) (other other))) @@ -191,6 +193,9 @@ (lambda (key . args) (make-invalid-query-parameter s #f)))) +(define (parse-checkbox-value s) + (string=? s "on")) + (define (parse-result-limit s) (match (string->number s) (#f (make-invalid-query-parameter s #f))