Added destination file, and lifted the code from rabbit_misc:write_term_file (though with ~p, not ~w)

1 files changed, 4 insertions, 2 deletions

diff --git a/generate_app b/generate_app
index 62301292..5c15358a 100644
--- a/generate_app
+++ b/generate_app
@@ -1,10 +1,12 @@
 #!/usr/bin/env escript
 %% -*- erlang -*-
 
-main([BeamDir]) ->
+main([BeamDir, TargetFile]) ->
     Modules = [list_to_atom(filename:basename(F, ".beam")) ||
                   F <- filelib:wildcard("*.beam", BeamDir)],
     {ok, {application, Application, Properties}} = io:read(''),
     NewProperties = lists:keyreplace(modules, 1, Properties,
                                      {modules, Modules}),
-    io:format("~p.", [{application, Application, NewProperties}]).
+    file:write_file(TargetFile, io_lib:format("~p.~n", [{application,
+                                                         Application,
+                                                         NewProperties}])).