diff options
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider')
-rw-r--r-- | src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs b/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs deleted file mode 100644 index 0d89b21..0000000 --- a/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs +++ /dev/null @@ -1,29 +0,0 @@ --- | A concrete 'ResourceProvider' that gets it's resources from the filesystem --- -module Hakyll.Core.ResourceProvider.FileResourceProvider - ( fileResourceProvider - ) where - -import Control.Applicative ((<$>)) - -import qualified Data.ByteString.Lazy as LB - -import Hakyll.Core.ResourceProvider -import Hakyll.Core.Identifier -import Hakyll.Core.Util.File -import Hakyll.Core.Configuration - --- | Create a filesystem-based 'ResourceProvider' --- -fileResourceProvider :: HakyllConfiguration -> IO ResourceProvider -fileResourceProvider configuration = do - -- Retrieve a list of identifiers - list <- map parseIdentifier . filter (not . ignoreFile configuration) <$> - getRecursiveContents False "." - - -- Construct a resource provider - return ResourceProvider - { resourceList = map Resource list - , resourceString = readFile . toFilePath . unResource - , resourceLazyByteString = LB.readFile . toFilePath . unResource - } |