module Hakyll.Core.Writable.CopyFile
( CopyFile (..)
, copyFileCompiler
) where
import Control.Arrow ((>>^))
import System.Directory (copyFile)
import Data.Typeable (Typeable)
import Data.Binary (Binary)
import Hakyll.Core.Resource
import Hakyll.Core.Writable
import Hakyll.Core.Compiler
import Hakyll.Core.Identifier
newtype CopyFile = CopyFile {unCopyFile :: FilePath}
deriving (Show, Eq, Ord, Binary, Typeable)
instance Writable CopyFile where
write dst (CopyFile src) = copyFile src dst
copyFileCompiler :: Compiler Resource CopyFile
copyFileCompiler = getIdentifier >>^ CopyFile . toFilePath