Do not print entering/leaving message if skip_dir

This commit is contained in:
Tuncer Ayaz 2012-05-18 19:56:02 +02:00
parent 635d1a9456
commit 4f6ea2fd11

View file

@ -104,10 +104,17 @@ process_dir(Dir, ParentConfig, Command, DirSet) ->
true ->
AbsDir = filename:absname(Dir),
case processing_base_dir(Dir) of
false ->
?CONSOLE("==> Entering directory `~s'\n", [AbsDir]);
ShouldPrintDir = case {is_skip_dir(Dir), processing_base_dir(Dir)} of
{false, false} ->
true;
_ ->
false
end,
case ShouldPrintDir of
true ->
?CONSOLE("==> Entering directory `~s'\n", [AbsDir]);
_ ->
ok
end,
@ -128,10 +135,10 @@ process_dir(Dir, ParentConfig, Command, DirSet) ->
Res = maybe_process_dir(ModuleSet, Config, CurrentCodePath,
Dir, Command, DirSet),
case processing_base_dir(Dir) of
false ->
?CONSOLE("==> Leaving directory `~s'\n", [AbsDir]);
case ShouldPrintDir of
true ->
?CONSOLE("==> Leaving directory `~s'\n", [AbsDir]);
false ->
ok
end,