diff options
| -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)))) |