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

Tell the user how to specify a datetime.

Browse source 
Also correct a mistake in the error message for invalid datetime formats.
This commit is contained in:
Leo Famulari 2020-12-19 17:38:36 -05:00
parent 74980bce70
commit 0813ad6978
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/web/compare/html.scm
View file

@ -55,7 +55,7 @@
#:font-family "monospace") #:font-family "monospace")
(form-horizontal-control (form-horizontal-control
"Base datetime" query-parameters "Base datetime" query-parameters
#:help-text "The date and time to compare from." #:help-text "The date and time to compare from. The required format is YYYY-MM-DD HH:MM:SS"
#:font-family "monospace") #:font-family "monospace")
(form-horizontal-control (form-horizontal-control
"Target branch" query-parameters "Target branch" query-parameters
@ -64,7 +64,7 @@
#:font-family "monospace") #:font-family "monospace")
(form-horizontal-control (form-horizontal-control
"Target datetime" query-parameters "Target datetime" query-parameters
#:help-text "The date and time to compare to." #:help-text "The date and time to compare to. The required format is YYYY-MM-DD HH:MM:SS"
#:font-family "monospace"))) #:font-family "monospace")))
(else (else
'()))) '())))

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

@ -217,7 +217,7 @@
(lambda (key . args) (lambda (key . args)
(make-invalid-query-parameter (make-invalid-query-parameter
s s
"Unable to parse date, please use YYYY-MM-DD HH-MM-SS as the format.")))) "Unable to parse date, please use YYYY-MM-DD HH:MM:SS as the format."))))
(define (parse-checkbox-value s) (define (parse-checkbox-value s)
(string=? s "on")) (string=? s "on"))