Update src/aeso_vm_decode.erl
Co-Authored-By: Hans Svensson <hanssv@gmail.com>
This commit is contained in:
parent
389e931674
commit
c745827c53
@ -104,7 +104,7 @@ from_fate({variant_t, Cons}, {variant, Ar, Tag, Args})
|
|||||||
Arity = lists:nth(Tag + 1, Ar),
|
Arity = lists:nth(Tag + 1, Ar),
|
||||||
case tuple_to_list(Args) of
|
case tuple_to_list(Args) of
|
||||||
ArgList when length(ArgList) == Arity ->
|
ArgList when length(ArgList) == Arity ->
|
||||||
from_fate(ConType, tuple_to_list(Args));
|
from_fate(ConType, ArgList);
|
||||||
_ -> throw(cannot_translate_to_sophia)
|
_ -> throw(cannot_translate_to_sophia)
|
||||||
end;
|
end;
|
||||||
from_fate({constr_t, _, Con, Types}, Args)
|
from_fate({constr_t, _, Con, Types}, Args)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user