add result.ml; polymorphic variant errors + refacto

src/log_reporter.ml

@@ -56,6 +56,13 @@ let set_level_secmods lvl =
 
 let setup level =
   (*     set_level_secmods level; *)
+  (*
+  let l = Logs.Src.list () in
+  let l =
+    List.filter (fun src -> Logs.Src.name src = "mnet.happy_eyeballs") l
+  in
+  List.iter (fun src -> Logs.Src.set_level src None) l;
+*)
   Logs.set_level ~all:false level;
   Logs.Src.set_level Logs.default level;
   Logs.set_reporter reporter;