Check in compiler snapshot.

Author: cristianoc

lib/4.06.1/unstable/js_compiler.ml

@@ -26822,9 +26822,9 @@ let rec pretty_val ppf v =
           fprintf ppf "@[<2>%s@ @[(%a)@]@]" name (pretty_vals ",") vs
       end
   | Tpat_variant (l, None, _) ->
-      fprintf ppf "`%s" l
+      fprintf ppf "#%s" l
   | Tpat_variant (l, Some w, _) ->
-      fprintf ppf "@[<2>`%s@ %a@]" l pretty_arg w
+      fprintf ppf "@[<2>#%s(%a)@]" l pretty_arg w
   | Tpat_record (lvs,_) ->
       let filtered_lvs = Ext_list.filter lvs
           (function
@@ -28522,7 +28522,7 @@ let do_check_partial ?pred exhaust loc casel pss = match pss with
                 with _ ->
                   ""
               in
-                Location.prerr_warning loc (Warnings.Partial_match errmsg)
+              Location.prerr_warning loc (Warnings.Partial_match errmsg)
             end;
             Partial
         end

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -26822,9 +26822,9 @@ let rec pretty_val ppf v =
           fprintf ppf "@[<2>%s@ @[(%a)@]@]" name (pretty_vals ",") vs
       end
   | Tpat_variant (l, None, _) ->
-      fprintf ppf "`%s" l
+      fprintf ppf "#%s" l
   | Tpat_variant (l, Some w, _) ->
-      fprintf ppf "@[<2>`%s@ %a@]" l pretty_arg w
+      fprintf ppf "@[<2>#%s(%a)@]" l pretty_arg w
   | Tpat_record (lvs,_) ->
       let filtered_lvs = Ext_list.filter lvs
           (function
@@ -28522,7 +28522,7 @@ let do_check_partial ?pred exhaust loc casel pss = match pss with
                 with _ ->
                   ""
               in
-                Location.prerr_warning loc (Warnings.Partial_match errmsg)
+              Location.prerr_warning loc (Warnings.Partial_match errmsg)
             end;
             Partial
         end

lib/4.06.1/whole_compiler.ml

@@ -186763,9 +186763,9 @@ let rec pretty_val ppf v =
           fprintf ppf "@[<2>%s@ @[(%a)@]@]" name (pretty_vals ",") vs
       end
   | Tpat_variant (l, None, _) ->
-      fprintf ppf "`%s" l
+      fprintf ppf "#%s" l
   | Tpat_variant (l, Some w, _) ->
-      fprintf ppf "@[<2>`%s@ %a@]" l pretty_arg w
+      fprintf ppf "@[<2>#%s(%a)@]" l pretty_arg w
   | Tpat_record (lvs,_) ->
       let filtered_lvs = Ext_list.filter lvs
           (function
@@ -188463,7 +188463,7 @@ let do_check_partial ?pred exhaust loc casel pss = match pss with
                 with _ ->
                   ""
               in
-                Location.prerr_warning loc (Warnings.Partial_match errmsg)
+              Location.prerr_warning loc (Warnings.Partial_match errmsg)
             end;
             Partial
         end