From 219506d5f9769f8c36e7f3fea9ac935b4363e005 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 19 Jun 2019 15:38:01 +0200
Subject: 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.
---
 src/cuirass/http.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/cuirass/http.scm')

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 ...)
-- 
cgit v1.2.3