simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-07 18:37:56 -05: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 =
let url =
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)
else
url
@ -115,8 +115,7 @@ end = struct
try%lwt
let+ r = Httpc.post ~headers ~body uri in
Ok r
with e ->
Lwt.return @@ Error e
with e -> Lwt.return @@ Error e
in
match r with
| 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 url =
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)
else
url