2010-12-26 08:38:40 +00:00
|
|
|
-- | A module containing various file utility functions
|
|
|
|
--
|
|
|
|
module Hakyll.Core.Util.File
|
|
|
|
( makeDirectories
|
|
|
|
, getRecursiveContents
|
|
|
|
, isFileObsolete
|
2011-02-10 15:42:26 +00:00
|
|
|
, isFileInternal
|
2010-12-26 08:38:40 +00:00
|
|
|
) where
|
|
|
|
|
2011-02-10 17:59:16 +00:00
|
|
|
import Control.Applicative ((<$>))
|
2010-12-26 08:38:40 +00:00
|
|
|
import System.Time (ClockTime)
|
2010-12-26 10:57:19 +00:00
|
|
|
import Control.Monad (forM, filterM)
|
2011-02-10 15:42:26 +00:00
|
|
|
import Data.List (isPrefixOf)
|
2010-12-26 08:38:40 +00:00
|
|
|
import System.Directory ( createDirectoryIfMissing, doesDirectoryExist
|
|
|
|
, doesFileExist, getModificationTime
|
|
|
|
, getDirectoryContents
|
|
|
|
)
|
2011-02-10 15:42:26 +00:00
|
|
|
import System.FilePath ( normalise, takeDirectory, splitPath
|
|
|
|
, dropTrailingPathSeparator, (</>)
|
|
|
|
)
|
|
|
|
|
|
|
|
import Hakyll.Core.Configuration
|
2010-12-26 08:38:40 +00:00
|
|
|
|
|
|
|
-- | Given a path to a file, try to make the path writable by making
|
|
|
|
-- all directories on the path.
|
|
|
|
--
|
|
|
|
makeDirectories :: FilePath -> IO ()
|
|
|
|
makeDirectories = createDirectoryIfMissing True . takeDirectory
|
|
|
|
|
|
|
|
-- | Get all contents of a directory. Note that files starting with a dot (.)
|
2011-02-10 17:59:16 +00:00
|
|
|
-- will be ignored.
|
2010-12-26 08:38:40 +00:00
|
|
|
--
|
2011-02-10 17:59:16 +00:00
|
|
|
getRecursiveContents :: Bool -- ^ Include directories?
|
|
|
|
-> FilePath -- ^ Directory to search
|
|
|
|
-> IO [FilePath] -- ^ List of files found
|
|
|
|
getRecursiveContents includeDirs topdir = do
|
2010-12-26 08:38:40 +00:00
|
|
|
topdirExists <- doesDirectoryExist topdir
|
2011-02-10 17:59:16 +00:00
|
|
|
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
|
2010-12-26 08:38:40 +00:00
|
|
|
where
|
2011-04-04 10:16:38 +00:00
|
|
|
isProper = (`notElem` [".", ".."])
|
2010-12-26 08:38:40 +00:00
|
|
|
|
|
|
|
-- | Check if a timestamp is obsolete compared to the timestamps of a number of
|
|
|
|
-- files. When they are no files, it is never obsolete.
|
|
|
|
--
|
|
|
|
isObsolete :: ClockTime -- ^ The time to check.
|
|
|
|
-> [FilePath] -- ^ Dependencies of the cached file.
|
|
|
|
-> IO Bool
|
|
|
|
isObsolete _ [] = return False
|
|
|
|
isObsolete timeStamp depends = do
|
2010-12-26 10:57:19 +00:00
|
|
|
depends' <- filterM doesFileExist depends
|
|
|
|
dependsModified <- mapM getModificationTime depends'
|
2010-12-26 08:38:40 +00:00
|
|
|
return (timeStamp < maximum dependsModified)
|
|
|
|
|
|
|
|
-- | Check if a file is obsolete, given it's dependencies. When the file does
|
|
|
|
-- not exist, it is always obsolete. Other wise, it is obsolete if any of it's
|
|
|
|
-- dependencies has a more recent modification time than the file.
|
|
|
|
--
|
|
|
|
isFileObsolete :: FilePath -- ^ The cached file
|
|
|
|
-> [FilePath] -- ^ Dependencies of the cached file
|
|
|
|
-> IO Bool
|
|
|
|
isFileObsolete file depends = do
|
|
|
|
exists <- doesFileExist file
|
|
|
|
if not exists
|
|
|
|
then return True
|
|
|
|
else do timeStamp <- getModificationTime file
|
|
|
|
isObsolete timeStamp depends
|
2011-02-10 15:42:26 +00:00
|
|
|
|
|
|
|
-- | Check if a file is meant for Hakyll internal use, i.e. if it is located in
|
|
|
|
-- the destination or store directory
|
|
|
|
--
|
|
|
|
isFileInternal :: HakyllConfiguration -- ^ Configuration
|
|
|
|
-> FilePath -- ^ File to check
|
|
|
|
-> Bool -- ^ If the given file is internal
|
|
|
|
isFileInternal configuration file =
|
|
|
|
any (`isPrefixOf` split file) dirs
|
|
|
|
where
|
|
|
|
split = map dropTrailingPathSeparator . splitPath
|
|
|
|
dirs = map (split . ($ configuration)) [ destinationDirectory
|
|
|
|
, storeDirectory
|
|
|
|
]
|