diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-24 20:29:57 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-24 20:30:19 +0100 |
| commit | afa86d61158f3bbded19f71bed9370d76a4f6622 (patch) | |
| tree | cbad71cbbaeb431434fa7662cf971d90b5de30b6 | |
| parent | f504eec519a80eacdec01d313a9bbe9a2a185d15 (diff) | |
| download | data-service-afa86d61158f3bbded19f71bed9370d76a4f6622.tar data-service-afa86d61158f3bbded19f71bed9370d76a4f6622.tar.gz | |
Add a parse-number function to the query-parameters module
Which does the same thing as parse-result-limit, which may have an overly
specific name.
| -rw-r--r-- | guix-data-service/web/query-parameters.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm index 8910e61..1c7fb8b 100644 --- a/guix-data-service/web/query-parameters.scm +++ b/guix-data-service/web/query-parameters.scm @@ -41,6 +41,7 @@ parse-datetime parse-checkbox-value + parse-number parse-result-limit)) (define (parse-query-string query) @@ -211,10 +212,12 @@ (define (parse-checkbox-value s) (string=? s "on")) -(define (parse-result-limit s) +(define (parse-number s) (match (string->number s) (#f (make-invalid-query-parameter s #f)) ((? number? num) num))) +(define parse-result-limit parse-number) + (define (any-invalid-query-parameters? query-parameters) (->bool (any invalid-query-parameter? (map cdr query-parameters)))) |