From afa86d61158f3bbded19f71bed9370d76a4f6622 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 24 Jun 2019 20:29:57 +0100 Subject: [PATCH] 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. --- guix-data-service/web/query-parameters.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))))