Add resourceLazyByteString function

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs b/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
index 442ae9a..72d38be 100644
--- a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
+++ b/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
@@ -16,6 +18,7 @@ fileResourceProvider :: IO ResourceProvider
 fileResourceProvider = do
     list <- map parseIdentifier <$> getRecursiveContents "."
     return $ ResourceProvider
-        { resourceList   = list
-        , resourceString = readFile . toFilePath
+        { resourceList           = list
+        , resourceString         = readFile . toFilePath
+        , resourceLazyByteString = LB.readFile . toFilePath
         }