diff --git a/src/core/util.ml b/src/core/util.ml index 78845fa9..38d9bbb9 100644 --- a/src/core/util.ml +++ b/src/core/util.ml @@ -77,6 +77,7 @@ let split_on_slash s : _ list = let parse_query s : (_ list, string) result = let s = + (* skip hash if present *) match String.index_opt s '#' with | Some i -> String.sub s (i + 1) (String.length s - i - 1) | None -> s