From 92a4ce54b4fb67a7b36d26c01471b1ecfc772bd7 Mon Sep 17 00:00:00 2001
From: Peter Saxton <peterhsaxton@gmail.com>
Date: Mon, 6 Jul 2020 13:40:54 +0100
Subject: handle valid query string case where no value is provided

---
 src/gleam/uri.gleam | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/gleam/uri.gleam b/src/gleam/uri.gleam
index 58ffeba..1c2447b 100644
--- a/src/gleam/uri.gleam
+++ b/src/gleam/uri.gleam
@@ -81,7 +81,22 @@ external fn erl_parse_query(String) -> Dynamic =
 pub fn parse_query(query: String) -> Result(List(tuple(String, String)), Nil) {
   query
   |> erl_parse_query
-  |> dynamic.typed_list(dynamic.typed_tuple2(_, dynamic.string, dynamic.string))
+  |> dynamic.typed_list(
+    dynamic.typed_tuple2(
+      _,
+      dynamic.string,
+      fn(raw) {
+        case dynamic.string(raw) {
+          Ok(value) -> Ok(value)
+          Error(_reason) -> case dynamic.bool(raw) {
+            Ok(True) -> Ok("")
+            // Note this error message will be niled at the end of this function.
+            _ -> Error("expected a boolean or string, got neither")
+          }
+        }
+      },
+    ),
+  )
   |> result.nil_error
 }
 
-- 
cgit v1.2.3