record_to_proplist/3
This commit is contained in:
parent
19930b6382
commit
4ee2abdbcf
|
@ -29,3 +29,7 @@
|
||||||
lists:zip(record_info(fields, Def),
|
lists:zip(record_info(fields, Def),
|
||||||
tl(tuple_to_list(Rec)))).
|
tl(tuple_to_list(Rec)))).
|
||||||
|
|
||||||
|
-define(record_to_proplist(Def, Rec, Fields),
|
||||||
|
[{K, V} || {K, V} <- ?record_to_proplist(Def, Rec),
|
||||||
|
lists:member(K, Fields)]).
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue