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

Improve the query-parameters module for checkbox support

Browse source
This commit is contained in:
Christopher Baines 2019-05-19 21:26:14 +01:00
parent 78fb3fafc0
commit 9f94e3278e
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -40,6 +40,7 @@
query-parameters->string query-parameters->string
parse-datetime parse-datetime
parse-checkbox-value
parse-result-limit)) parse-result-limit))
(define (parse-query-string query) (define (parse-query-string query)
@ -161,6 +162,7 @@
(define (value->text value) (define (value->text value)
(match value (match value
(#f "") (#f "")
(#t "on")
((? date? date) ((? date? date)
(date->string date "~1 ~3")) (date->string date "~1 ~3"))
(other other))) (other other)))
@ -191,6 +193,9 @@
(lambda (key . args) (lambda (key . args)
(make-invalid-query-parameter s #f)))) (make-invalid-query-parameter s #f))))
(define (parse-checkbox-value s)
(string=? s "on"))
(define (parse-result-limit s) (define (parse-result-limit s)
(match (string->number s) (match (string->number s)
(#f (make-invalid-query-parameter s #f)) (#f (make-invalid-query-parameter s #f))