Update src/aeso_vm_decode.erl

Co-Authored-By: Hans Svensson <hanssv@gmail.com>
This commit is contained in:
Thomas Arts 2019-06-20 14:19:39 +02:00 committed by GitHub
parent 389e931674
commit c745827c53
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -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)