From caf63dce0ea29a07c5205a69ff6f60b7c6b60084 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 28 Feb 2021 14:38:03 +0000 Subject: Move request-query-parameters to utils --- guix-build-coordinator/client-communication.scm | 20 -------------------- 1 file changed, 20 deletions(-) (limited to 'guix-build-coordinator/client-communication.scm') 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 -- cgit v1.2.3