diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-03-01 15:37:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-03-01 15:37:29 +0100 |
| commit | dbea9790d30ff1c2e80585e9441d45ed0b740e30 (patch) | |
| tree | d24485f13f887583d3de663ea5d5693a043b514d | |
| parent | a861d7d5bd997d0776f840847186fc198e87e1d9 (diff) | |
| download | cuirass-dbea9790d30ff1c2e80585e9441d45ed0b740e30.tar cuirass-dbea9790d30ff1c2e80585e9441d45ed0b740e30.tar.gz | |
http: Fix interpretation of non-numerical parameters.
Fixes a regression introduced in
593cb7be108ed97bca5371aad2e53fa8ce4817ba.
* src/cuirass/http.scm (request-parameters): Fix fallback case in
'match' form. Previously it would return a procedure in this case, as
returned by (const param), leading to a failure down the road in
'sqlite-bind-arguments' as could be seen by running tests/http.scm.
| -rw-r--r-- | src/cuirass/http.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index b8738cf..59e4ce1 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -84,10 +84,11 @@ (match (string-split param #\=) ((key param) (let ((key-symbol (string->symbol key))) - (list key-symbol ((match key-symbol - ('id string->number) - ('nr string->number) - (_ const)) param)))))) + (list key-symbol + (match key-symbol + ('id (string->number param)) + ('nr (string->number param)) + (_ param))))))) (string-split query #\&))))) |