Temp.hs

module Temp where

import System.Directory

path :: String
path = "/Users/shane.logsdon/Code/haskell/slogsdon.com/provider/posts/"

files :: IO [FilePath]
files = getDirectoryContents path

filterDirs :: [FilePath] -> [FilePath]
filterDirs = filter notCurrentPrevious
  where
    notCurrentPrevious f
      | f `elem` [".", ".."] = False
      | otherwise            = True

getFilesContents :: [FilePath] -> IO [String]
getFilesContents = mapM (readFile . (path ++)) . filterDirs