1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
-- | A module containing various file utility functions
--
module Hakyll.Core.Util.File
( makeDirectories
, getRecursiveContents
, isFileObsolete
) where
import System.FilePath (normalise, takeDirectory, (</>))
import System.Time (ClockTime)
import Control.Monad (forM, filterM)
import System.Directory ( createDirectoryIfMissing, doesDirectoryExist
, doesFileExist, getModificationTime
, getDirectoryContents
)
-- | 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 (.)
-- will be ignored.
--
getRecursiveContents :: FilePath -> IO [FilePath]
getRecursiveContents topdir = do
topdirExists <- doesDirectoryExist topdir
if topdirExists
then do names <- getDirectoryContents topdir
let properNames = filter isProper names
paths <- forM properNames $ \name -> do
let path = topdir </> name
isDirectory <- doesDirectoryExist path
if isDirectory
then getRecursiveContents path
else return [normalise path]
return (concat paths)
else return []
where
isProper = not . (== ".") . take 1
-- | 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
depends' <- filterM doesFileExist depends
dependsModified <- mapM getModificationTime depends'
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
|
