check.hs

module Main where

import System.Directory
import Control.Monad
import Data.List

import Text.Regex
import Text.Regex.Posix

recursiveFiles :: FilePath -> IO [FilePath]
recursiveFiles path = getDirectoryContents path

getDirectoryContentsRecursive :: FilePath -> IO [FilePath]
getDirectoryContentsRecursive path = do
	isDir <- doesDirectoryExist path
	if isDir
		then do
			cs <- getDirectoryContents path
			liftM concat $ mapM getDirectoryContentsRecursive $ map ((path ++ "/") ++) $ filter (`notElem` [".", ".."]) cs
		else return [path]

main = do
	cs <- getDirectoryContentsRecursive "."
	putStrLn $ unlines $  filter ((=~ "(\\.cpp$)") :: FilePath -> Bool) cs