@@ -304414,7 +304414,7 @@ end = struct
304414
304414
* You should have received a copy of the GNU Lesser General Public License
304415
304415
* along with this program; if not, write to the Free Software
304416
304416
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
304417
- let version = "8.0.2 "
304417
+ let version = "8.0.3 "
304418
304418
let header =
304419
304419
"// Generated by BUCKLESCRIPT, PLEASE EDIT WITH CARE"
304420
304420
let package_name = "bs-platform"
@@ -381318,7 +381318,7 @@ let exp_need_paren (e : J.expression) =
381318
381318
381319
381319
| Raw_js_code {code_info = Exp _}
381320
381320
| 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 _ ))
381322
381322
| Object _ -> true
381323
381323
| Raw_js_code {code_info = Stmt _ }
381324
381324
| Length _
@@ -382019,7 +382019,7 @@ and expression_desc cxt ~(level:int) f x : cxt =
382019
382019
| true, 1 -> Js_op.Lit Literals.tl
382020
382020
| _ ->
382021
382021
Js_op.Lit ("_" ^ string_of_int i)) , e )
382022
- (if !Js_config.debug then
382022
+ (if !Js_config.debug && not is_cons then
382023
382023
[name_symbol, E.str p.name]
382024
382024
else []) in
382025
382025
if p.num_nonconst = 1 then
0 commit comments