diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-02-19 22:33:28 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-02-19 22:33:28 +0100 |
| commit | 593cb7be108ed97bca5371aad2e53fa8ce4817ba (patch) | |
| tree | 012ed2b7b0182366c8dd3003da9828cd29931afc | |
| parent | 7be12b9b0f20480720519b968a435ab9453ae527 (diff) | |
| download | cuirass-593cb7be108ed97bca5371aad2e53fa8ce4817ba.tar cuirass-593cb7be108ed97bca5371aad2e53fa8ce4817ba.tar.gz | |
http: Interpret id and nr request-parameters as numbers.
* src/cuirass/http.scm (request-parameters): Interpret id and nr parameters as
numbers.
| -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 #\&))))) |