@@ -0,0 +1,21 @@
1+-- | Dummy resource provider for testing purposes
2+--
3+module Hakyll.Core.Resource.Provider.Dummy
4+ ( dummyResourceProvider
5+ ) where
6+
7+import Data.Map (Map)
8+import qualified Data.Map as M
9+
10+import qualified Data.ByteString.Lazy.Char8 as LBC
11+
12+import Hakyll.Core.Resource
13+import Hakyll.Core.Resource.Provider
14+
15+-- | Create a dummy 'ResourceProvider'
16+--
17+dummyResourceProvider :: Map String String -> IO ResourceProvider
18+dummyResourceProvider vfs = makeResourceProvider
19+ (map Resource (M.keys vfs))
20+ (return . (vfs M.!) . unResource)
21+ (return . LBC.pack . (vfs M.!) . unResource)