12 lines
279 B
OCaml
12 lines
279 B
OCaml
type t = string array
|
|
|
|
let pp fmt route =
|
|
Fmt.pf fmt "/%a"
|
|
(Fmt.array ~sep:(fun fmt () -> Fmt.char fmt '/') Fmt.string)
|
|
route
|
|
|
|
let of_string s =
|
|
let ss = String.split_on_char '/' s in
|
|
let ss = List.filter (fun s -> not (String.equal "" s)) ss in
|
|
Array.of_list ss
|