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

A record should be _one_ object

Browse Source
This commit is contained in:
Hans Svensson 2019-05-28 14:25:37 +02:00
parent ec678878fa
commit d3a13eafed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/aeso_aci.erl
View File

@ -190,7 +190,7 @@ encode_expr({app, _, F, As}) ->
Ef = encode_expr(F), Ef = encode_expr(F),
Eas = encode_exprs(As), Eas = encode_exprs(As),
#{Ef => Eas}; #{Ef => Eas};
encode_expr({record, _, Flds}) -> encode_fields(Flds); encode_expr({record, _, Flds}) -> maps:from_list(encode_fields(Flds));
encode_expr({map, _, KVs}) -> [ [encode_expr(K), encode_expr(V)] || {K, V} <- KVs ]; encode_expr({map, _, KVs}) -> [ [encode_expr(K), encode_expr(V)] || {K, V} <- KVs ];
encode_expr({Op,_Ann}) -> encode_expr({Op,_Ann}) ->
error({encode_expr_todo, Op}). error({encode_expr_todo, Op}).
@ -198,7 +198,7 @@ encode_expr({Op,_Ann}) ->
encode_fields(Flds) -> [ encode_field(F) || F <- Flds ]. encode_fields(Flds) -> [ encode_field(F) || F <- Flds ].
encode_field({field, _, [{proj, _, {id, _, Fld}}], Val}) -> encode_field({field, _, [{proj, _, {id, _, Fld}}], Val}) ->
#{encode_name(Fld) => encode_expr(Val)}. {encode_name(Fld), encode_expr(Val)}.
do_render_aci_json(Json) -> do_render_aci_json(Json) ->
Contracts = Contracts =