Skip to content

Commit 6dfda4f

Browse files
committed
WIP: try fix for the ocaml-ci
1 parent dc07cd9 commit 6dfda4f

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

web.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -247,7 +247,7 @@ module Http (IO : IO_TYPE) (Curl_IO : CURL with type 'a t = 'a IO.t) : HTTP with
247247
(* Given a list of strings, check pre-existing entry starting with `~name`; and adds the concatenation of `~name` and `~value` if not. *)
248248
let add_if_absent ~name ~value strs =
249249
match strs with
250-
| Some strs when List.exists (StringLabels.starts_with ~prefix:(name^":")) strs -> strs
250+
| Some strs when List.exists (fun s -> Stre.starts_with s (name^":")) strs -> strs
251251
| Some strs -> (String.concat ": " [name; value]) :: strs
252252
| None -> [String.concat ": " [name; value]]
253253

0 commit comments

Comments
 (0)