Ignore the fay folder (#445)

This commit is contained in:
Michael Snoyman 2012-10-30 16:19:24 +02:00
parent bdbb73f94d
commit b961fb8d5f

View File

@ -243,6 +243,7 @@ determineDeps x = do
cs <- getDirectoryContents fp
let notHidden ('.':_) = False
notHidden ('t':"mp") = False
notHidden ('f':"ay") = False
notHidden _ = True
fmap concat $ forM (filter notHidden cs) $ \c -> do
let f = fp ++ '/' : c