summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2011-02-15 22:46:43 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2011-02-15 22:46:43 +0100
commita5438d8d9284ba2855934fc13f318c8f2dff6db9 (patch)
treeaf3d3f2a23a5de1d092189fba85fa854df93f998 /src/Hakyll/Core
parent28a30caef08ab786bfa8b75d75f155a4e62b7280 (diff)
downloadhakyll-a5438d8d9284ba2855934fc13f318c8f2dff6db9.tar.gz
defaultCopyFile → copyFileCompiler
Diffstat (limited to 'src/Hakyll/Core')
-rw-r--r--src/Hakyll/Core/CopyFile.hs29
-rw-r--r--src/Hakyll/Core/Writable.hs15
2 files changed, 30 insertions, 14 deletions
diff --git a/src/Hakyll/Core/CopyFile.hs b/src/Hakyll/Core/CopyFile.hs
new file mode 100644
index 0000000..dbbaaa1
--- /dev/null
+++ b/src/Hakyll/Core/CopyFile.hs
@@ -0,0 +1,29 @@
+-- | Exports simple compilers to just copy files
+--
+{-# LANGUAGE GeneralizedNewtypeDeriving, DeriveDataTypeable #-}
+module Hakyll.Core.CopyFile
+ ( CopyFile (..)
+ , copyFileCompiler
+ ) where
+
+import Control.Arrow ((>>^))
+import System.Directory (copyFile)
+
+import Data.Typeable (Typeable)
+import Data.Binary (Binary)
+
+import Hakyll.Core.ResourceProvider
+import Hakyll.Core.Writable
+import Hakyll.Core.Compiler
+import Hakyll.Core.Identifier
+
+-- | Newtype construct around 'FilePath' which will copy the file directly
+--
+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
diff --git a/src/Hakyll/Core/Writable.hs b/src/Hakyll/Core/Writable.hs
index db53d9a..a3fd421 100644
--- a/src/Hakyll/Core/Writable.hs
+++ b/src/Hakyll/Core/Writable.hs
@@ -1,18 +1,13 @@
-- | Describes writable items; items that can be saved to the disk
--
-{-# LANGUAGE FlexibleInstances, GeneralizedNewtypeDeriving,
- DeriveDataTypeable #-}
+{-# LANGUAGE FlexibleInstances #-}
module Hakyll.Core.Writable
( Writable (..)
- , CopyFile (..)
) where
-import System.Directory (copyFile)
import Data.Word (Word8)
import qualified Data.ByteString as SB
-import Data.Binary (Binary)
-import Data.Typeable (Typeable)
-- | Describes an item that can be saved to the disk
--
@@ -25,11 +20,3 @@ instance Writable [Char] where
instance Writable [Word8] where
write p = SB.writeFile p . SB.pack
-
--- | Newtype construct around 'FilePath' which will copy the file directly
---
-newtype CopyFile = CopyFile {unCopyFile :: FilePath}
- deriving (Show, Eq, Ord, Binary, Typeable)
-
-instance Writable CopyFile where
- write dst (CopyFile src) = copyFile src dst