diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-06-01 17:12:06 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-06-14 10:58:01 +0200 |
| commit | 2f18b8a33cabd0ea666781ba048d0174b4dc5031 (patch) | |
| tree | aacda421b89e8133e3c73942e9ede61283a5005c /lib/virtuals/v_string/brr_string | |
Initial commit
Diffstat (limited to 'lib/virtuals/v_string/brr_string')
| -rw-r--r-- | lib/virtuals/v_string/brr_string/dune | 4 | ||||
| -rw-r--r-- | lib/virtuals/v_string/brr_string/v_string.ml | 10 |
2 files changed, 14 insertions, 0 deletions
diff --git a/lib/virtuals/v_string/brr_string/dune b/lib/virtuals/v_string/brr_string/dune new file mode 100644 index 0000000..0e3f942 --- /dev/null +++ b/lib/virtuals/v_string/brr_string/dune @@ -0,0 +1,4 @@ +(library + (name brr_string) + (libraries brr) + (implements v_string)) diff --git a/lib/virtuals/v_string/brr_string/v_string.ml b/lib/virtuals/v_string/brr_string/v_string.ml new file mode 100644 index 0000000..9aeb01f --- /dev/null +++ b/lib/virtuals/v_string/brr_string/v_string.ml @@ -0,0 +1,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 |