diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-11-21 18:31:59 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-11-21 18:31:59 +0000 |
| commit | 8cafd93f223dbfa3ab5f020cc9016fc01bb1dde1 (patch) | |
| tree | 4fe37d699c543298ffb145a34c6641a70ed11ea1 /guix-data-service | |
| parent | d0a4143c7c45f84d5761fb6ccf31be586b1c887c (diff) | |
| download | data-service-8cafd93f223dbfa3ab5f020cc9016fc01bb1dde1.tar data-service-8cafd93f223dbfa3ab5f020cc9016fc01bb1dde1.tar.gz | |
Specify an invalid parameter message in parse-datetime
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/web/query-parameters.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm index 3b0953a..2212ef1 100644 --- a/guix-data-service/web/query-parameters.scm +++ b/guix-data-service/web/query-parameters.scm @@ -214,7 +214,9 @@ (lambda () (string->date s "~Y-~m-~d ~H:~M:~S")) (lambda (key . args) - (make-invalid-query-parameter s #f)))) + (make-invalid-query-parameter + s + "Unable to parse date, please use YYYY-MM-DD HH-MM-SS as the format.")))) (define (parse-checkbox-value s) (string=? s "on")) |