We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b7a2037 commit 13af346Copy full SHA for 13af346
jscomp/frontend/bs_builtin_ppx.ml
@@ -424,8 +424,8 @@ let local_module_name =
424
incr v;
425
"local_" ^ string_of_int !v
426
427
-(* Unpack requires core_type package for type inference;
428
- use module type bindings and a function to create safe local names instead. *)
+(* Unpack requires core_type package for type inference:
+ Generate a module type name eg. __Belt_List__*)
429
let local_module_type_name txt =
430
"_"
431
^ (Longident.flatten txt |> List.fold_left (fun ll l -> ll ^ "_" ^ l) "")
0 commit comments