lib/virtuals/v_string/brr_string/v_string.ml


1
2
3
4
5
6
7
8
9
10

type t = Jstr.t

let v : string -> t = Jstr.v
let s = Jstr.to_string
let concat : ?sep:t -> t list -> t = Jstr.concat

let encode v =
  match Brr.Uri.encode_component v with
  | Ok s -> s
  | Error _ -> Jstr.empty