diff options
Diffstat (limited to 'guix-data-service/web/compare/controller.scm')
-rw-r--r-- | guix-data-service/web/compare/controller.scm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm index 9aec025..20ee3b9 100644 --- a/guix-data-service/web/compare/controller.scm +++ b/guix-data-service/web/compare/controller.scm @@ -649,7 +649,24 @@ mime-types) ((application/json) (render-json - '((error . "invalid query")))) + `((error . "invalid query") + (query_parameters + . + ,(map + (match-lambda + ((name . val) + (cons + name + (if (invalid-query-parameter? val) + `((invalid + . ,(with-output-to-string + (lambda () + (sxml->html + (invalid-query-parameter-message + val))))) + (value . ,(invalid-query-parameter-value val))) + val)))) + query-parameters))))) (else (letpar& ((systems (with-thread-postgresql-connection |