diff options
| -rw-r--r-- | generate_app | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generate_app b/generate_app index 10e5bafd67..2246971dbb 100644 --- a/generate_app +++ b/generate_app @@ -5,8 +5,11 @@ main([SrcDir, TargetFile]) -> Modules = [list_to_atom(filename:basename(F, ".erl")) || F <- filelib:wildcard("*.erl", SrcDir)], {ok, {application, Application, Properties}} = io:read(''), - NewProperties = lists:keyreplace(modules, 1, Properties, - {modules, Modules}), + NewProperties = + case proplists:get_value(modules, Properties) of + [] -> lists:keyreplace(modules, 1, Properties, {modules, Modules}); + _ -> Properties + end, file:write_file( TargetFile, io_lib:format("~p.~n", [{application, Application, NewProperties}])). |