@@ -304414,7 +304414,7 @@ end = struct
304414304414 * You should have received a copy of the GNU Lesser General Public License
304415304415 * along with this program; if not, write to the Free Software
304416304416 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
304417- let version = "8.0.2 "
304417+ let version = "8.0.3 "
304418304418let header =
304419304419 "// Generated by BUCKLESCRIPT, PLEASE EDIT WITH CARE"
304420304420let package_name = "bs-platform"
@@ -381318,7 +381318,7 @@ let exp_need_paren (e : J.expression) =
381318381318
381319381319 | Raw_js_code {code_info = Exp _}
381320381320 | Fun _
381321- | Caml_block (_,_,_, (Blk_record _ | Blk_module _))
381321+ | Caml_block (_,_,_, (Blk_record _ | Blk_module _ | Blk_poly_var _ | Blk_extension | Blk_record_ext _ | Blk_record_inlined _ | Blk_constructor _ ))
381322381322 | Object _ -> true
381323381323 | Raw_js_code {code_info = Stmt _ }
381324381324 | Length _
@@ -382019,7 +382019,7 @@ and expression_desc cxt ~(level:int) f x : cxt =
382019382019 | true, 1 -> Js_op.Lit Literals.tl
382020382020 | _ ->
382021382021 Js_op.Lit ("_" ^ string_of_int i)) , e )
382022- (if !Js_config.debug then
382022+ (if !Js_config.debug && not is_cons then
382023382023 [name_symbol, E.str p.name]
382024382024 else []) in
382025382025 if p.num_nonconst = 1 then
0 commit comments