From 015663657ceca7b168bf7d91fbc2fccc41c40904 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 5 Apr 2011 22:14:49 +0200
Subject: New resource module hierarchy

---
 .../Core/ResourceProvider/FileResourceProvider.hs  | 29 ----------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 src/Hakyll/Core/ResourceProvider/FileResourceProvider.hs

(limited to 'src/Hakyll/Core/ResourceProvider')

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
-        }
-- 
cgit v1.2.3