Fix for event datatype

This commit is contained in:
Gaith Hallak 2023-06-28 17:36:25 +04:00
parent 6fc17c2010
commit eebe958b7d

View File

@ -1262,7 +1262,7 @@ event_function(_Env = #{event_type := {variant_t, EventCons}}, EventType = {vari
end, end,
Indices = [ {var, [], V} || {indexed, V} <- IVars ], Indices = [ {var, [], V} || {indexed, V} <- IVars ],
Body = {builtin, [], chain_event, [Payload, Hash | Indices]}, Body = {builtin, [], chain_event, [Payload, Hash | Indices]},
{'case', {con, [], Arities, Tag, Vars}, {nosplit, [], Body}} {'case', {con, Arities, Tag, Vars}, {nosplit, [], Body}}
end, end,
#{ attrs => [private], #{ attrs => [private],
args => [{"e", EventType}], args => [{"e", EventType}],