Ignore the fay folder (#445)
This commit is contained in:
parent
bdbb73f94d
commit
b961fb8d5f
@ -243,6 +243,7 @@ determineDeps x = do
|
|||||||
cs <- getDirectoryContents fp
|
cs <- getDirectoryContents fp
|
||||||
let notHidden ('.':_) = False
|
let notHidden ('.':_) = False
|
||||||
notHidden ('t':"mp") = False
|
notHidden ('t':"mp") = False
|
||||||
|
notHidden ('f':"ay") = False
|
||||||
notHidden _ = True
|
notHidden _ = True
|
||||||
fmap concat $ forM (filter notHidden cs) $ \c -> do
|
fmap concat $ forM (filter notHidden cs) $ \c -> do
|
||||||
let f = fp ++ '/' : c
|
let f = fp ++ '/' : c
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user