Add resourceLazyByteString function

src/Hakyll/Core/ResourceProvider.hs

@@ -8,6 +8,8 @@ module Hakyll.Core.ResourceProvider
 
 import Hakyll.Core.Identifier
 
+import qualified Data.ByteString.Lazy as LB
+
 -- | A value responsible for retrieving and listing resources
 --
 data ResourceProvider = ResourceProvider
@@ -15,4 +17,6 @@ data ResourceProvider = ResourceProvider
       resourceList           :: [Identifier]
     , -- | Retrieve a certain resource as string
       resourceString         :: Identifier -> IO String
+    , -- | Retrieve a certain resource as lazy bytestring
+      resourceLazyByteString :: Identifier -> IO LB.ByteString
     }

src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs

@@ -6,6 +6,8 @@ module Hakyll.Core.ResourceProvider.FileResourceProvider
 
 import Control.Applicative ((<$>))
 
+import qualified Data.ByteString.Lazy as LB
+
 import Hakyll.Core.ResourceProvider
 import Hakyll.Core.Identifier
 import Hakyll.Core.Util.File
@@ -18,4 +20,5 @@ fileResourceProvider = do
     return $ ResourceProvider
         { resourceList           = list
         , resourceString         = readFile . toFilePath
+        , resourceLazyByteString = LB.readFile . toFilePath
         }