From b30123f93cd7aa2deadd079e071899ac8f351993 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sun, 26 Dec 2010 16:12:24 +0100
Subject: Add resourceLazyByteString function

---
 src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Hakyll/Core/ResourceProvider')

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
         }
-- 
cgit v1.2.3