diff options
Diffstat (limited to 'src/Hakyll/Core/Writable.hs')
-rw-r--r-- | src/Hakyll/Core/Writable.hs | 15 |
1 files changed, 1 insertions, 14 deletions
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 |