b30123f · hakyll · git.iko.soy

git.iko.soy/hakyll

Add resourceLazyByteString function

commitb30123f93cd7aa2deadd079e071899ac8f351993 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateSun 26 Dec 2010, 16:12 (16 years ago) parent5159687

2 files changed+11−4

compare with master

unifiedsplit

src/Hakyll/Core/ResourceProvider.hs+6−2 src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs+5−2

src/Hakyll/Core/ResourceProvider.hs+6−2

@@ -8,11 +8,15 @@ module Hakyll.Core.ResourceProvider

99import Hakyll.Core.Identifier

1010

11+import qualified Data.ByteString.Lazy as LB

12+

1113-- | A value responsible for retrieving and listing resources

1214--

1315data ResourceProvider = ResourceProvider

1416 { -- | A list of all resources this provider is able to provide

15− resourceList :: [Identifier]

17+ resourceList :: [Identifier]

1618 , -- | Retrieve a certain resource as string

17− resourceString :: Identifier -> IO String

19+ resourceString :: Identifier -> IO String

20+ , -- | Retrieve a certain resource as lazy bytestring

21+ resourceLazyByteString :: Identifier -> IO LB.ByteString

1822 }

src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs+5−2

@@ -6,6 +6,8 @@ module Hakyll.Core.ResourceProvider.FileResourceProvider

77import Control.Applicative ((<$>))

9+import qualified Data.ByteString.Lazy as LB

10+

911import Hakyll.Core.ResourceProvider

1012import Hakyll.Core.Identifier

1113import Hakyll.Core.Util.File

@@ -16,6 +18,7 @@ fileResourceProvider :: IO ResourceProvider

1618fileResourceProvider = do

1719 list <- map parseIdentifier <$> getRecursiveContents "."

1820 return $ ResourceProvider

19− { resourceList = list

20− , resourceString = readFile . toFilePath

21+ { resourceList = list

22+ , resourceString = readFile . toFilePath

23+ , resourceLazyByteString = LB.readFile . toFilePath

2124 }