Ignore subdirectories in erlydtl_compiler:compile_dir

erlydtl · Jun 22, 2011 · 8c5d29f · 8c5d29f
1 parent 5a93e5b
commit 8c5d29f
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/erlydtl_compiler.erl b/src/erlydtl_compiler.erl
@@ -119,10 +119,15 @@ compile_dir(Dir, Module, Options) ->
             ("."++_, Acc) -> Acc;
             (File, {ResultAcc, ErrorAcc}) ->
                 FilePath = filename:join([Dir, File]),
-                case parse(FilePath, Context) of
+                case filelib:is_dir(FilePath) of
-                    ok -> {ResultAcc, ErrorAcc};
+                    true ->
-                    {ok, DjangoParseTree, CheckSum} -> {[{File, DjangoParseTree, CheckSum}|ResultAcc], ErrorAcc};
+                        {ResultAcc, ErrorAcc};
-                    Err -> {ResultAcc, [Err|ErrorAcc]}
+                    false ->
+                        case parse(FilePath, Context) of
+                            ok -> {ResultAcc, ErrorAcc};
+                            {ok, DjangoParseTree, CheckSum} -> {[{File, DjangoParseTree, CheckSum}|ResultAcc], ErrorAcc};
+                            Err -> {ResultAcc, [Err|ErrorAcc]}
+                        end
                 end
         end, {[], []}, Files),
     case ParserErrors of