diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 16:12:24 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 16:12:48 +0100 |
commit | b30123f93cd7aa2deadd079e071899ac8f351993 (patch) | |
tree | 300dc104736320c17a3f6f98ad6ffa05915d2479 /src/Hakyll/Core/ResourceProvider | |
parent | 515968716f6eaf6915d4fd5ec16aa569bdb5b6da (diff) | |
download | hakyll-b30123f93cd7aa2deadd079e071899ac8f351993.tar.gz |
Add resourceLazyByteString function
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider')
-rw-r--r-- | src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs | 7 |
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 } |