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

Add a parse-number function to the query-parameters module

Browse source 
Which does the same thing as parse-result-limit, which may have an overly
specific name.
This commit is contained in:
Christopher Baines 2019-06-24 20:29:57 +01:00
parent f504eec519
commit afa86d6115
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,6 +41,7 @@
parse-datetime parse-datetime
parse-checkbox-value parse-checkbox-value
parse-number
parse-result-limit)) parse-result-limit))
(define (parse-query-string query) (define (parse-query-string query)
@ -211,10 +212,12 @@
(define (parse-checkbox-value s) (define (parse-checkbox-value s)
(string=? s "on")) (string=? s "on"))
(define (parse-result-limit s) (define (parse-number s)
(match (string->number s) (match (string->number s)
(#f (make-invalid-query-parameter s #f)) (#f (make-invalid-query-parameter s #f))
((? number? num) num))) ((? number? num) num)))
(define parse-result-limit parse-number)
(define (any-invalid-query-parameters? query-parameters) (define (any-invalid-query-parameters? query-parameters)
(->bool (any invalid-query-parameter? (map cdr query-parameters)))) (->bool (any invalid-query-parameter? (map cdr query-parameters))))