Soilihi BEN SOILIHI BOINA pushed to branch soilih at Stefan / Typer
Commits: 8e377da2 by Soilih BEN SOILIH at 2021-07-02T23:22:44-06:00 remove unecessary try with
- - - - -
1 changed file:
- src/typer_lsp_server.ml
Changes:
===================================== src/typer_lsp_server.ml ===================================== @@ -279,7 +279,7 @@ end let lexp_list = List.map (fun x -> let (_,b,_) = x in b ) tab in let rec foo lexp_list cursor = match lexp_list with - | [] -> failwith "Liste vide!" + | [] -> failwith "No Lexp found!!!" | [n] -> n | [hd;tl] -> if (dist (Lexp.lexp_location hd) cursor < dist (Lexp.lexp_location tl) cursor ) then hd else tl @@ -394,9 +394,7 @@ end args in
- try browse_list_lexp (fonc::args_list) cursor - with exe -> failwith "Exeption sur ce call !!!" )
| Inductive (l, _label, args, cases)
View it on GitLab: https://gitlab.com/monnier/typer/-/commit/8e377da2a811e4eead746c3beab8d3b4c0...