Recursively finding files in (cross-platform) Haskell

FindFiles.hs

module FindFiles where

import System.FilePath.Find

-- Can't install FileManip on Windows because it depends on "unix", which (surprise!) can't be installed 
-- on Windows without Cygwin etc. Instead, install filemanip not FileManip (obviously ?!)
-- which depends on unix-compat, which is fine on Windows

main :: IO () 
main = do
    -- paths <- find always always "."
    -- paths <- find always (fileType ==? RegularFile) "."
    paths <- find always (fileType ==? RegularFile &&? extension ==? ".hs") "."
    mapM_ putStrLn paths

-- TODO See also find-conduit (http://hackage.haskell.org/package/find-conduit)
-- which might be handy if planning to use conduit to process the files?