parallel file reads in haskell

gistfile1.hs

readFilesFromDirectory :: IO [([Char], [([Char], Int)])]
readFilesFromDirectory = do
	allFiles <- getDirectoryContents "docs"
	let filtered = filter (endswith ".htm") allFiles
	--listOfTuplesWithFileContent <- readingFiles filtered 
	listOfTuplesWithFileContent <- combingReadFiles $ readingFilesInParallel filtered
	return listOfTuplesWithFileContent
	

stripTags :: String -> String
stripTags []         = []
stripTags ('<' : xs) = stripTags $ drop 1 $ dropWhile (/= '>') xs
stripTags (x : xs)   = x : stripTags xs


combingReadFiles input = sequence input

readingFilesInParallel names = parMap rpar (\x -> do
					   temp <- readFile $ "docs/" ++ x
					   return (x, mapper $ stripTags $ temp)) names					  


readingFiles :: [[Char]] -> IO [([Char], [(String, Int)])]
readingFiles []	     = return []
readingFiles (x:xs)  = do			
			temp <- readFile $ "docs/" ++ x
			rest <- readingFiles xs
			return ((x, mapper $ stripTags $ temp):rest)