diff options
-rw-r--r-- | src/cuirass/http.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 3f49369..b8738cf 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -83,7 +83,11 @@ (map (lambda (param) (match (string-split param #\=) ((key param) - (list (string->symbol key) param)))) + (let ((key-symbol (string->symbol key))) + (list key-symbol ((match key-symbol + ('id string->number) + ('nr string->number) + (_ const)) param)))))) (string-split query #\&))))) |