Add a new query-parameters module

The query parameters feed in to the results shown, but also forms on
pages. Validation is important to avoid errors and security issues, but it's
also important to provide appropriate feedback to the user.

This module provides some utilities and structure around handling query
parameters.

1 files changed, 1 insertions, 10 deletions

diff --git a/guix-data-service/web/util.scm b/guix-data-service/web/util.scm
index 1938890..44fae8a 100644
--- a/guix-data-service/web/util.scm
+++ b/guix-data-service/web/util.scm
@@ -22,19 +22,10 @@
   #:use-module (srfi srfi-1)
   #:use-module (web request)
   #:use-module (web uri)
-  #:export (parse-query-string
-            request-path-components
+  #:export (request-path-components
             file-extension
             directory?))
 
-(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)))
-      (() '()))))
-
 (define (request-path-components request)
   (split-and-decode-uri-path (uri-path (request-uri request))))