handle valid query string case where no value is provided

1 files changed, 16 insertions, 1 deletions

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
 }