git.iko.soy/hakyll
on 79ce331 help sign in
hakyll/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
21 lines 617 B history raw
1-- | A concrete 'ResourceProvider' that gets it's resources from the filesystem
2--
3module Hakyll.Core.ResourceProvider.FileResourceProvider
4 ( fileResourceProvider
5 ) where
7import Control.Applicative ((<$>))
9import Hakyll.Core.ResourceProvider
10import Hakyll.Core.Identifier
11import Hakyll.Core.Util.File
13-- | Create a filesystem-based 'ResourceProvider'
14--
15fileResourceProvider :: IO ResourceProvider
16fileResourceProvider = do
17 list <- map parseIdentifier <$> getRecursiveContents "."
18 return $ ResourceProvider
19 { resourceList = list
20 , resourceString = readFile . toFilePath
21 }