File tree Expand file tree Collapse file tree 3 files changed +3
-3
lines changed Expand file tree Collapse file tree 3 files changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -189,7 +189,7 @@ let substream delim s =
189189 then enlarge_stream stre >> = aux
190190 else
191191 try
192- let p, (_ : Re.Group.t ) =
192+ let p, (_ : 'groups ) =
193193 Ocsigen_lib.Netstring_pcre. search_forward rdelim s 0
194194 in
195195 cont (String. sub s 0 p) (fun () ->
Original file line number Diff line number Diff line change @@ -61,7 +61,7 @@ let correct_user_local_file =
6161 try
6262 ignore
6363 (Ocsigen_lib.Netstring_pcre. search_forward regexp path 0
64- : int * Pcre. substrings );
64+ : int * 'groups );
6565 false
6666 with Not_found -> true
6767
Original file line number Diff line number Diff line change @@ -102,7 +102,7 @@ let check_dotdot =
102102 try
103103 ignore
104104 (Ocsigen_lib.Netstring_pcre. search_forward regexp filename 0
105- : int * Re.Group. t );
105+ : int * 'groups );
106106 false
107107 with Not_found -> true
108108
You can’t perform that action at this time.
0 commit comments