valitydev/parse_trans
14
0
Fork 0
mirror of https://github.com/valitydev/parse_trans.git synced 2024-11-06 00:25:16 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

lists:concat() -> lists:append()

Browse Source
This commit is contained in:
Ulf Wiger 2012-08-16 13:55:14 +02:00
parent 216531d99f
commit e3676f4a6b
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/exprecs.erl
View File

@ -611,7 +611,7 @@ generate_accessors(L, Acc) ->
f_get(Acc, L),
f_set(Acc, L),
f_fromlist(Acc, L) |
lists:concat(
lists:append(
lists:map(
fun(Rname) ->
Fields = get_flds(Rname, Acc),
@ -1029,7 +1029,7 @@ f_isrec_1(Acc, L) ->
f_get(#pass1{record_types = RTypes, exports = Es} = Acc, L) ->
Fname = list_to_atom(fname_prefix(get, Acc)),
[funspec(L, Fname,
lists:concat(
lists:append(
[[{[t_atom(L, A), t_record(L, R)], T}
|| {A, T} <- Types]
|| {R, Types} <- RTypes, lists:member(R, Es)])