Procházet zdrojové kódy

Stick the usort in our termination clause

pull/2124/head
Rob Ashton před 5 roky
rodič
revize
6d8c544ecd
1 změnil soubory, kde provedl 14 přidání a 15 odebrání
  1. +14
    -15
      src/rebar_compiler_erl.erl

+ 14
- 15
src/rebar_compiler_erl.erl Zobrazit soubor

@ -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)),

Načítá se…
Zrušit
Uložit