module Hakyll.Core.Util.File
( makeDirectories
, getRecursiveContents
, isFileInternal
) where
import Control.Applicative ((<$>))
import Control.Monad (forM)
import Data.List (isPrefixOf)
import System.Directory ( createDirectoryIfMissing, doesDirectoryExist
, getDirectoryContents
)
import System.FilePath ( normalise, takeDirectory, splitPath
, dropTrailingPathSeparator, (</>)
)
import Hakyll.Core.Configuration
makeDirectories :: FilePath -> IO ()
makeDirectories = createDirectoryIfMissing True . takeDirectory
getRecursiveContents :: Bool
-> FilePath
-> IO [FilePath]
getRecursiveContents includeDirs topdir = do
topdirExists <- doesDirectoryExist topdir
if not topdirExists
then return []
else do
names <- filter isProper <$> getDirectoryContents topdir
paths <- forM names $ \name -> do
let path = normalise $ topdir </> name
isDirectory <- doesDirectoryExist path
if isDirectory then getRecursiveContents includeDirs path
else return [path]
return $ if includeDirs then topdir : concat paths
else concat paths
where
isProper = (`notElem` [".", ".."])
isFileInternal :: HakyllConfiguration
-> FilePath
-> Bool
isFileInternal configuration file =
any (`isPrefixOf` split file) dirs
where
split = map dropTrailingPathSeparator . splitPath
dirs = map (split . ($ configuration)) [ destinationDirectory
, storeDirectory
]