From 8fefdc707257b2ed1a2fde2c267e6f17d1babd78 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Wed, 22 May 2019 22:28:29 +0200
Subject: Large work on server software.

---
 module/server/util.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 module/server/util.scm

(limited to 'module/server/util.scm')

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 #\&))))
-- 
cgit v1.2.3