Fix whitespace errors

This commit is contained in:
Tuncer Ayaz 2012-06-07 15:34:36 +02:00
parent b723e81cbb
commit c122eeec75

View file

@ -62,7 +62,8 @@ doc(Config, File) ->
%% For each source directory, look for a more recent file than %% For each source directory, look for a more recent file than
%% SumaryLastMod; in that case, we go ahead and do a full regen %% SumaryLastMod; in that case, we go ahead and do a full regen
NeedsRegen = newer_file_exists(proplists:get_value(source_path, EDocOpts, ["src"]), NeedsRegen = newer_file_exists(proplists:get_value(source_path,
EDocOpts, ["src"]),
EDocInfoLastMod), EDocInfoLastMod),
case NeedsRegen of case NeedsRegen of
@ -98,7 +99,8 @@ newer_file_exists(Paths, LastMod) ->
FLast = filelib:last_modified(Filename), FLast = filelib:last_modified(Filename),
case FLast > LastMod of case FLast > LastMod of
true -> true ->
?DEBUG("~p is more recent than edoc-info: ~120p > ~120p\n", ?DEBUG("~p is more recent than edoc-info: "
"~120p > ~120p\n",
[Filename, FLast, LastMod]), [Filename, FLast, LastMod]),
throw(newer_file_exists); throw(newer_file_exists);
false -> false ->
@ -106,8 +108,10 @@ newer_file_exists(Paths, LastMod) ->
end end
end, end,
try try
lists:foldl(fun(P, _) -> filelib:fold_files(P, ".*.erl", true, CheckFile, false) end, lists:foldl(fun(P, _) ->
undefined, Paths), filelib:fold_files(P, ".*.erl", true,
CheckFile, false)
end, undefined, Paths),
false false
catch catch
throw:newer_file_exists -> throw:newer_file_exists ->