From bbc2631c76db01e85ac5c4e75b1babb6c5b05697 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 6 Jan 2013 18:33:00 +0100 Subject: Add TmpFile utilities --- src/Hakyll/Core/Writable/CopyFile.hs | 43 ------------------------------------ 1 file changed, 43 deletions(-) delete mode 100644 src/Hakyll/Core/Writable/CopyFile.hs (limited to 'src/Hakyll/Core/Writable') 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 -- cgit v1.2.3