If we see a list of modules there already, trust it.

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}])).