aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/cuirass/http.scm6
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 #\&)))))