[enhance] UriParser: accept query element without the equal sign

MLstate · May 29, 2012 · 566e211 · 566e211
1 parent 8b87a09
commit 566e211
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/stdlib/core/web/core/uri.opa b/stdlib/core/web/core/uri.opa
@@ -265,7 +265,9 @@ UriParser =
     segs = Rule.parse_list_non_empty(domain_segment, parser [.])
     parser ls=segs -> List.to_string_using("", "", ".", ls)
 
-  query_element = parser key=chars_query "=" value=opt_chars_query -> (key, value)
+  query_element = parser
+                  | key=chars_query "=" value=opt_chars_query -> (key, value)
+                  | key=chars_query -> (key, "")
   query_parser = Rule.parse_list(query_element, parser [&;] -> void)
 
   query =