summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs')
-rw-r--r--src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs29
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
- }