module Hakyll.Core.Resource.Provider.File
( fileResourceProvider
) where
import Control.Applicative ((<$>))
import qualified Data.ByteString.Lazy as LB
import Hakyll.Core.Resource
import Hakyll.Core.Resource.Provider
import Hakyll.Core.Util.File
import Hakyll.Core.Configuration
fileResourceProvider :: HakyllConfiguration -> IO ResourceProvider
fileResourceProvider configuration = do
list <- map Resource . filter (not . shouldIgnoreFile configuration) <$>
getRecursiveContents False "."
makeResourceProvider list (readFile . unResource)
(LB.readFile . unResource)