diff options
Diffstat (limited to 'module/server/util.scm')
-rw-r--r-- | module/server/util.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/module/server/util.scm b/module/server/util.scm new file mode 100644 index 00000000..b9bc6099 --- /dev/null +++ b/module/server/util.scm @@ -0,0 +1,10 @@ +(define-module (server util) + :use-module (util) + :use-module (srfi srfi-1)) + +(define-public (parse-query query) + (when query + (fold (lambda (str list) + (let* (((k v) (string-split str #\=))) + (cons* (-> k string->symbol symbol->keyword) v list))) + '() (string-split query #\&)))) |