diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-28 14:38:03 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-28 18:40:20 +0000 |
| commit | caf63dce0ea29a07c5205a69ff6f60b7c6b60084 (patch) | |
| tree | 430f9accd8cf00d307b298a5a58b1ba3cb3d62f3 /guix-build-coordinator/client-communication.scm | |
| parent | f9a257ed61531eafc9727faebe50be1a1cb1648a (diff) | |
| download | build-coordinator-caf63dce0ea29a07c5205a69ff6f60b7c6b60084.tar build-coordinator-caf63dce0ea29a07c5205a69ff6f60b7c6b60084.tar.gz | |
Move request-query-parameters to utils
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 6ad98f2..550b054 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -81,26 +81,6 @@ #:port port)) #:on-error 'backtrace)) -(define (request-query-parameters request) - (define (parse-query-string query) - "Parse and decode the URI query string QUERY and return an alist." - (let lp ((lst (map uri-decode (string-split query (char-set #\& #\=))))) - (match lst - ((key value . rest) - (cons (cons key value) (lp rest))) - (("") '()) - (() '())))) - - (let ((query (uri-query (request-uri request)))) - (if (and query - (not (string-null? query))) - (map (match-lambda - ((name . value) - (cons (string->symbol name) - value))) - (parse-query-string query)) - '()))) - (define (controller request method-and-path-components raw-body |