snapshot

Author: cristianoc

lib/4.06.1/unstable/js_compiler.ml

@@ -271718,12 +271718,23 @@ let handle_debugger loc (payload : Ast_payload.t) =
       Ast_external_mk.local_external_apply loc ~pval_prim:[ "#debugger" ]
         ~pval_type:(Typ.arrow Nolabel (Typ.any ()) (Ast_literal.type_unit ()))
         [ Ast_literal.val_unit ~loc () ]
-  | _ -> Location.raise_errorf ~loc "bs.debugger does not accept payload"
+  | _ ->
+      Location.raise_errorf ~loc "%%debugger extension doesn't accept arguments"
 
 let handle_raw ~kind loc payload =
   let is_function = ref false in
   match Ast_payload.raw_as_string_exp_exn ~kind ~is_function payload with
-  | None -> Location.raise_errorf ~loc "bs.raw can only be applied to a string"
+  | None -> (
+      match kind with
+      | Raw_re ->
+          Location.raise_errorf ~loc
+            "%%re extension can only be applied to a string"
+      | Raw_exp ->
+          Location.raise_errorf ~loc
+            "%%raw extension can only be applied to a string"
+      | Raw_program ->
+          Location.raise_errorf ~loc
+            "%%%%raw extension can only be applied to a string")
   | Some exp ->
       {
         exp with
@@ -271748,7 +271759,9 @@ let handle_raw_structure loc payload =
               ~pval_type:(Typ.arrow Nolabel (Typ.any ()) (Typ.any ()))
               [ exp ];
         }
-  | None -> Location.raise_errorf ~loc "bs.raw can only be applied to a string"
+  | None ->
+      Location.raise_errorf ~loc
+        "%%%%raw extension can only be applied to a string"
 
 end
 module Ast_exp_extension : sig 

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -271718,12 +271718,23 @@ let handle_debugger loc (payload : Ast_payload.t) =
       Ast_external_mk.local_external_apply loc ~pval_prim:[ "#debugger" ]
         ~pval_type:(Typ.arrow Nolabel (Typ.any ()) (Ast_literal.type_unit ()))
         [ Ast_literal.val_unit ~loc () ]
-  | _ -> Location.raise_errorf ~loc "bs.debugger does not accept payload"
+  | _ ->
+      Location.raise_errorf ~loc "%%debugger extension doesn't accept arguments"
 
 let handle_raw ~kind loc payload =
   let is_function = ref false in
   match Ast_payload.raw_as_string_exp_exn ~kind ~is_function payload with
-  | None -> Location.raise_errorf ~loc "bs.raw can only be applied to a string"
+  | None -> (
+      match kind with
+      | Raw_re ->
+          Location.raise_errorf ~loc
+            "%%re extension can only be applied to a string"
+      | Raw_exp ->
+          Location.raise_errorf ~loc
+            "%%raw extension can only be applied to a string"
+      | Raw_program ->
+          Location.raise_errorf ~loc
+            "%%%%raw extension can only be applied to a string")
   | Some exp ->
       {
         exp with
@@ -271748,7 +271759,9 @@ let handle_raw_structure loc payload =
               ~pval_type:(Typ.arrow Nolabel (Typ.any ()) (Typ.any ()))
               [ exp ];
         }
-  | None -> Location.raise_errorf ~loc "bs.raw can only be applied to a string"
+  | None ->
+      Location.raise_errorf ~loc
+        "%%%%raw extension can only be applied to a string"
 
 end
 module Ast_exp_extension : sig 

lib/4.06.1/whole_compiler.ml

@@ -282115,12 +282115,23 @@ let handle_debugger loc (payload : Ast_payload.t) =
       Ast_external_mk.local_external_apply loc ~pval_prim:[ "#debugger" ]
         ~pval_type:(Typ.arrow Nolabel (Typ.any ()) (Ast_literal.type_unit ()))
         [ Ast_literal.val_unit ~loc () ]
-  | _ -> Location.raise_errorf ~loc "bs.debugger does not accept payload"
+  | _ ->
+      Location.raise_errorf ~loc "%%debugger extension doesn't accept arguments"
 
 let handle_raw ~kind loc payload =
   let is_function = ref false in
   match Ast_payload.raw_as_string_exp_exn ~kind ~is_function payload with
-  | None -> Location.raise_errorf ~loc "bs.raw can only be applied to a string"
+  | None -> (
+      match kind with
+      | Raw_re ->
+          Location.raise_errorf ~loc
+            "%%re extension can only be applied to a string"
+      | Raw_exp ->
+          Location.raise_errorf ~loc
+            "%%raw extension can only be applied to a string"
+      | Raw_program ->
+          Location.raise_errorf ~loc
+            "%%%%raw extension can only be applied to a string")
   | Some exp ->
       {
         exp with
@@ -282145,7 +282156,9 @@ let handle_raw_structure loc payload =
               ~pval_type:(Typ.arrow Nolabel (Typ.any ()) (Typ.any ()))
               [ exp ];
         }
-  | None -> Location.raise_errorf ~loc "bs.raw can only be applied to a string"
+  | None ->
+      Location.raise_errorf ~loc
+        "%%%%raw extension can only be applied to a string"
 
 end
 module Ast_exp_extension : sig