blob: a7b4a351113fe243914c934e0b6bea73e26941ce (
plain)
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
--------------------------------------------------------------------------------
-- | Exports simple compilers to just copy files
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Hakyll.Core.File
( CopyFile (..)
, copyFileCompiler
, TmpFile (..)
, newTmpFile
) where
--------------------------------------------------------------------------------
import Control.Applicative ((<$>))
import Data.Binary (Binary (..))
import Data.Typeable (Typeable)
import System.Directory (copyFile, doesFileExist,
renameFile)
import System.FilePath ((</>))
import System.Random (randomIO)
--------------------------------------------------------------------------------
import Hakyll.Core.Compiler
import Hakyll.Core.Compiler.Internal
import Hakyll.Core.Configuration
import Hakyll.Core.Identifier
import Hakyll.Core.Item
import qualified Hakyll.Core.Store as Store
import Hakyll.Core.Util.File
import Hakyll.Core.Writable
--------------------------------------------------------------------------------
-- | This will copy any file directly by using a system call
data CopyFile = CopyFile
deriving (Show, Eq, Ord, Typeable)
--------------------------------------------------------------------------------
instance Binary CopyFile where
put CopyFile = return ()
get = return CopyFile
--------------------------------------------------------------------------------
instance Writable CopyFile where
write dst item = copyFile (toFilePath $ itemIdentifier item) dst
--------------------------------------------------------------------------------
copyFileCompiler :: Compiler (Item CopyFile)
copyFileCompiler = makeItem CopyFile
--------------------------------------------------------------------------------
newtype TmpFile = TmpFile FilePath
deriving (Typeable)
--------------------------------------------------------------------------------
instance Binary TmpFile where
put _ = return ()
get = error $
"Hakyll.Core.File.TmpFile: You tried to load a TmpFile, however, " ++
"this is not possible since these are deleted as soon as possible."
--------------------------------------------------------------------------------
instance Writable TmpFile where
write dst (Item _ (TmpFile fp)) = renameFile fp dst
--------------------------------------------------------------------------------
-- | Create a tmp file
newTmpFile :: String -- ^ Suffix and extension
-> Compiler TmpFile -- ^ Resulting tmp path
newTmpFile suffix = do
path <- mkPath
compilerUnsafeIO $ makeDirectories path
debugCompiler $ "newTmpFile " ++ path
return $ TmpFile path
where
mkPath = do
rand <- compilerUnsafeIO $ randomIO :: Compiler Int
tmp <- tmpDirectory . compilerConfig <$> compilerAsk
let path = tmp </> Store.hash [show rand] ++ "-" ++ suffix
exists <- compilerUnsafeIO $ doesFileExist path
if exists then mkPath else return path
|
