@@ -300,17 +300,13 @@ addChunk mode builder chunk =
302generateEnum :: Name.Mode -> Opt.Global -> N.Name -> Index.ZeroBased -> JS.Stmt
302generateEnum :: Name.Mode -> Opt.Global -> N.Name -> Index.ZeroBased -> JS.Stmt
303−generateEnum mode (Opt.Global home name) ctorName index =
303+generateEnum mode global ctorName index =
306− case mode of
304+ case mode of
307− Name.Debug _ ->
305+ Name.Debug _ ->
308− JS.Object [(Name.dollar, JS.String (N.toBuilder ctorName))]
306+ var global (Expr.generateCtor mode ctorName index 0)
310− Name.Prod _ _ ->
308+ Name.Prod _ _ ->
311− JS.Int (Index.toMachine index)
309+ JS.EmptyStmt
313− JS.Var [ (Name.fromGlobal home name, Just definition) ]