blob: 868b139924e0782c858aeb4dfb39da8d8f8df8aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(define-module (web uri-query)
:use-module ((calp util) :select (->string))
:use-module ((web uri) :select (uri-encode))
)
(define-public (encode-query-parameters parameters)
(string-join
(map (lambda (p)
(format #f "~a=~a"
(car p)
(uri-encode (->string (cdr p)))))
parameters)))
|