simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-08 03:47:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove use of String.ends_with for compat with 4.08

Browse source
This commit is contained in:
Simon Cruanes 2023-08-31 23:28:15 -04:00
parent 883d4bb806
commit 063c046933
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml
View file

@ -95,7 +95,7 @@ end = struct
('a, error) result Lwt.t = ('a, error) result Lwt.t =
let url = let url =
let url = config.url in let url = config.url in
if String.ends_with url ~suffix:"/" then if url <> "" && String.get url (String.length url - 1) = '/' then
String.sub url 0 (String.length url - 1) String.sub url 0 (String.length url - 1)
else else
url url
@ -115,8 +115,7 @@ end = struct
try%lwt try%lwt
let+ r = Httpc.post ~headers ~body uri in let+ r = Httpc.post ~headers ~body uri in
Ok r Ok r
with e -> with e -> Lwt.return @@ Error e
Lwt.return @@ Error e
in in
match r with match r with
| Error e -> | Error e ->

2
src/client-ocurl/opentelemetry_client_ocurl.ml
View file

@ -125,7 +125,7 @@ end = struct
let data = Pbrt.Encoder.to_string encoder in let data = Pbrt.Encoder.to_string encoder in
let url = let url =
let url = config.Config.url in let url = config.Config.url in
if String.ends_with url ~suffix:"/" then if url <> "" && String.get url (String.length url - 1) = '/' then
String.sub url 0 (String.length url - 1) String.sub url 0 (String.length url - 1)
else else
url url