QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Merge pull request #286 from aeternity/expose-interface-fix

Browse Source 
Fix interface exposure (master)
This commit is contained in:
Radosław Rowicki 2020-10-21 14:00:48 +02:00 committed by GitHub
commit 4504fb8dcf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/aeso_ast_infer_types.erl
View File

@ -832,7 +832,12 @@ expose_internals(Defs, What) ->
main_contract -> [{entrypoint, true}|Ann]; % minor duplication main_contract -> [{entrypoint, true}|Ann]; % minor duplication
contract -> Ann contract -> Ann
end, 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 end
|| Def <- Defs || Def <- Defs
]. ].