diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-19 15:38:01 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-19 15:38:01 +0200 |
commit | 219506d5f9769f8c36e7f3fea9ac935b4363e005 (patch) | |
tree | 218587ef3d05cfb31f5cbab6bc263b84f005dca5 /src/cuirass/http.scm | |
parent | c3ff064e97e40388474d4b879ac2ea51b3523381 (diff) | |
download | cuirass-219506d5f9769f8c36e7f3fea9ac935b4363e005.tar cuirass-219506d5f9769f8c36e7f3fea9ac935b4363e005.tar.gz |
cuirass: Restore search query.
* src/cuirass/templates.scm (search-form): Take the query as an argument and
set it as the value (unless #F).
(html-page): Optionally take a value for QUERY as an argument.
* src/cuirass/http.scm (url-handler): Let "search" handler pass QUERY to
HTML-PAGE.
Diffstat (limited to 'src/cuirass/http.scm')
-rw-r--r-- | src/cuirass/http.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 5bd736b..02fc6f0 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -440,7 +440,8 @@ Hydra format." (border-high-id . ,border-high-id))) builds-id-min builds-id-max) - '())) + '() + query)) (respond-json-with-error 500 "Query parameter not provided!")))) (("static" path ...) |