diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-06 18:33:00 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-06 18:33:00 +0100 |
| commit | bbc2631c76db01e85ac5c4e75b1babb6c5b05697 (patch) | |
| tree | 331dda3a0f45efee866db2a03fb5aa2858e826a8 /src/Hakyll/Core/Writable | |
| parent | e477ea753b59657ba8d185986c646cc45c66fcec (diff) | |
| download | hakyll-bbc2631c76db01e85ac5c4e75b1babb6c5b05697.tar.gz | |
Add TmpFile utilities
Diffstat (limited to 'src/Hakyll/Core/Writable')
| -rw-r--r-- | src/Hakyll/Core/Writable/CopyFile.hs | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/src/Hakyll/Core/Writable/CopyFile.hs b/src/Hakyll/Core/Writable/CopyFile.hs deleted file mode 100644 index 58397ac..0000000 --- a/src/Hakyll/Core/Writable/CopyFile.hs +++ /dev/null @@ -1,43 +0,0 @@ --------------------------------------------------------------------------------- --- | Exports simple compilers to just copy files -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -module Hakyll.Core.Writable.CopyFile - ( CopyFile (..) - , copyFileCompiler - ) where - - --------------------------------------------------------------------------------- -import Data.Binary (Binary (..)) -import Data.Typeable (Typeable) -import System.Directory (copyFile) - - --------------------------------------------------------------------------------- -import Hakyll.Core.Compiler -import Hakyll.Core.Identifier -import Hakyll.Core.Item -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 |