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