---
 server/sinan/src/sin_erl_builder.erl |   14 ++++++++++++--
 1 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/server/sinan/src/sin_erl_builder.erl 
b/server/sinan/src/sin_erl_builder.erl
index 175b086..9877790 100644
--- a/server/sinan/src/sin_erl_builder.erl
+++ b/server/sinan/src/sin_erl_builder.erl
@@ -230,8 +230,7 @@ build_app(BuildRef, Env, AppName, Args) ->
                        % Search directory with .hrl files
                        % generated from .asn1 files.
                        {i, TargetSrcDir} | Includes],
-    eta_event:task_event(BuildRef, ?TASK, compile_args,
-                        {"Compile args:~n~p", [Options]}),
+    event_compile_args(BuildRef, Options),
     Ignorables = sin_build_config:get_value(BuildRef, "ignore_dirs", []),
     sin_utils:copy_dir(AppBuildDir, AppDir, "", Ignorables),
     code:add_patha(Target),
@@ -243,6 +242,17 @@ build_app(BuildRef, Env, AppName, Args) ->
     check_for_errors(NModules),
     sin_utils:remove_code_paths([Target | EbinPaths]).
 
+event_compile_args(BuildRef, Options) ->
+       case sin_build_config:get_value(BuildRef, "task.build.print_args", 
undefined) of
+           undefined ->
+               ok;
+           true ->
+                eta_event:task_event(BuildRef, ?TASK, compile_args,
+                         {"Compile args:~n~p", [Options]});
+           "True" ->
+                eta_event:task_event(BuildRef, ?TASK, compile_args,
+                         {"Compile args:~n~p", [Options]})
+         end.
 
 %%--------------------------------------------------------------------
 %% @doc
-- 
1.6.1.3


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"erlware-dev" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to 
[email protected]
For more options, visit this group at 
http://groups.google.com/group/erlware-dev?hl=en
-~----------~----~----~----~------~----~------~--~---

Reply via email to