Merge pull request #288 from aeternity/expose-interface-fix-lima

Fix interface exposure (lima)
This commit is contained in:
Radosław Rowicki 2020-10-21 14:01:21 +02:00 committed by GitHub
commit f1d95484a5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -706,7 +706,12 @@ expose_internals(Defs, What) ->
main_contract -> [{entrypoint, true}|Ann]; % minor duplication
contract -> Ann
end,
setelement(2, Def, NewAnn)
Def1 = setelement(2, Def, NewAnn),
case Def1 of % fix inner clauses
{fun_clauses, Ans, Id, T, Clauses} ->
{fun_clauses, Ans, Id, T, expose_internals(Clauses, What)};
_ -> Def1
end
end
|| Def <- Defs
].