diff options
Diffstat (limited to 'generate_app')
-rw-r--r-- | generate_app | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generate_app b/generate_app index d8813542..fb0eb1ea 100644 --- a/generate_app +++ b/generate_app @@ -1,16 +1,16 @@ #!/usr/bin/env escript %% -*- erlang -*- -main([TargetFile | SrcDirs]) -> +main([InFile, OutFile | SrcDirs]) -> Modules = [list_to_atom(filename:basename(F, ".erl")) || SrcDir <- SrcDirs, F <- filelib:wildcard("*.erl", SrcDir)], - {ok, {application, Application, Properties}} = io:read(''), + {ok, [{application, Application, Properties}]} = file:consult(InFile), NewProperties = case proplists:get_value(modules, Properties) of [] -> lists:keyreplace(modules, 1, Properties, {modules, Modules}); _ -> Properties end, file:write_file( - TargetFile, + OutFile, io_lib:format("~p.~n", [{application, Application, NewProperties}])). |