summaryrefslogtreecommitdiff
path: root/generate_app
diff options
context:
space:
mode:
authorBen Hood <0x6e6562@gmail.com>2009-11-05 14:43:08 +0000
committerBen Hood <0x6e6562@gmail.com>2009-11-05 14:43:08 +0000
commitfb186ebf31f0938cd2835bd1531dc25b78ab8486 (patch)
tree700eab5983fbcdde0e3807f11b9aa069233d0e73 /generate_app
parentad2923d593161fe349f009c8fec0ca95523519c2 (diff)
parent592cb287ad55faa9c9c30645b67ddf791498ecb8 (diff)
downloadrabbitmq-server-git-fb186ebf31f0938cd2835bd1531dc25b78ab8486.tar.gz
Merged default into bug21775
Diffstat (limited to 'generate_app')
-rw-r--r--generate_app6
1 files changed, 4 insertions, 2 deletions
diff --git a/generate_app b/generate_app
index 623012927e..576b485e1e 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}])).