jon.recoil.org / js_top_worker
this repo has no description
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Strip errors from line0

Jon Ludlam 92fd28a4 287d23b7

+4 -3
+4 -3
lib/impl.ml
··· 803 803 804 804 let query_errors id deps is_toplevel orig_source = 805 805 try 806 - Logs.info (fun m -> m "About to mangle toplevel"); 806 + (* Logs.info (fun m -> m "About to mangle toplevel"); *) 807 807 let line1, src = mangle_toplevel is_toplevel orig_source deps in 808 808 let id = Option.get id in 809 809 let source = Merlin_kernel.Msource.make (line1 ^ src) in ··· 812 812 in 813 813 let errors = 814 814 wdispatch source query 815 - |> StdLabels.List.map 815 + |> StdLabels.List.filter_map 816 816 ~f:(fun 817 817 (Ocaml_parsing.Location.{ kind; main = _; sub; source } as 818 818 error) ··· 828 828 error 829 829 |> String.trim 830 830 in 831 + if loc.loc_start.pos_lnum = 0 then None else Some 831 832 { 832 833 Toplevel_api_gen.kind; 833 834 loc; ··· 838 839 in 839 840 if List.length errors = 0 then 840 841 add_cmi id deps src; 841 - Logs.info (fun m -> m "Got to end"); 842 + (* Logs.info (fun m -> m "Got to end"); *) 842 843 IdlM.ErrM.return errors 843 844 with e -> 844 845 Logs.info (fun m -> m "Error: %s" (Printexc.to_string e));