Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- conduitFilesFilter :: ProjectFilter -> Path Abs Dir -> IO [Path Abs File]
- conduitFilesFilter projFilter dirname' = do
- (_, allFiles) <- listDirRecur dirname'
- C.runConduit $
- C.yieldMany allFiles
- .| C.filterMC (filterMatchingFile projFilter)
- .| C.sinkList
Add Comment
Please, Sign In to add comment