Rewrite anonymous functions dealing wiht Msg to fun (Msg ...)

Signed-off-by: Nathan Rebours <[email protected]>

Author: NathanReb

lib/block.ml

@@ -27,7 +27,7 @@ let locate_error_msg ~loc s =
 
 let locate_errors ~loc r =
   Result.map_error
-    (fun l -> List.map (function `Msg m -> `Msg (locate_error_msg ~loc m)) l)
+    (fun l -> List.map (fun (`Msg m) -> `Msg (locate_error_msg ~loc m)) l)
     r
 
 module Header = struct

lib/util.ml

@@ -24,7 +24,7 @@ module Result = struct
       | Ok x -> f x
       | Error l ->
           List.iter
-            (function `Msg m -> Printf.eprintf "[mdx] Fatal error: %s\n" m)
+            (fun (`Msg m) -> Printf.eprintf "[mdx] Fatal error: %s\n" m)
             l;
           1
   end