瀏覽代碼

Stick the usort in our termination clause

pull/2124/head
Rob Ashton 5 年之前
父節點
當前提交
6d8c544ecd
共有 1 個文件被更改,包括 14 次插入15 次删除
  1. +14
    -15
      src/rebar_compiler_erl.erl

+ 14
- 15
src/rebar_compiler_erl.erl 查看文件

@ -245,21 +245,20 @@ module_to_erl(Mod) ->
atom_to_list(Mod) ++ ".erl".
parse_attrs(Fd, Includes, Dir) ->
DupIncludes = case io:parse_erl_form(Fd, "") of
{ok, Form, _Line} ->
case erl_syntax:type(Form) of
attribute ->
NewIncludes = process_attr(Form, Includes, Dir),
parse_attrs(Fd, NewIncludes, Dir);
_ ->
parse_attrs(Fd, Includes, Dir)
end;
{eof, _} ->
Includes;
_Err ->
parse_attrs(Fd, Includes, Dir)
end,
lists:usort(DupIncludes).
case io:parse_erl_form(Fd, "") of
{ok, Form, _Line} ->
case erl_syntax:type(Form) of
attribute ->
NewIncludes = process_attr(Form, Includes, Dir),
parse_attrs(Fd, NewIncludes, Dir);
_ ->
parse_attrs(Fd, Includes, Dir)
end;
{eof, _} ->
lists:usort(Includes);
_Err ->
parse_attrs(Fd, Includes, Dir)
end.
process_attr(Form, Includes, Dir) ->
AttrName = erl_syntax:atom_value(erl_syntax:attribute_name(Form)),

Loading…
取消
儲存