diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-27 18:25:09 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-27 18:25:09 +0200 |
| commit | e2cce1b341fdbf65c270c7e64bb2f5264b8a4468 (patch) | |
| tree | 081d546954662876f4af1d98c2b376921b38d94e /src/Hakyll/Core/Resource | |
| parent | 0807e4c49aeb66fdbe9ea9a755b6865bfb075336 (diff) | |
| parent | 5849ab36c784eebc6f0d9ae2ff7efe91c2f6e4ac (diff) | |
| download | hakyll-e2cce1b341fdbf65c270c7e64bb2f5264b8a4468.tar.gz | |
Merge branch 'master' into type-safe-identifiers
Diffstat (limited to 'src/Hakyll/Core/Resource')
| -rw-r--r-- | src/Hakyll/Core/Resource/Provider/Dummy.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Hakyll/Core/Resource/Provider/Dummy.hs b/src/Hakyll/Core/Resource/Provider/Dummy.hs index bc0b16d..9f15178 100644 --- a/src/Hakyll/Core/Resource/Provider/Dummy.hs +++ b/src/Hakyll/Core/Resource/Provider/Dummy.hs @@ -7,15 +7,17 @@ module Hakyll.Core.Resource.Provider.Dummy import Data.Map (Map) import qualified Data.Map as M -import qualified Data.ByteString.Lazy.Char8 as LBC +import qualified Data.Text.Lazy as TL +import qualified Data.Text.Lazy.Encoding as TL +import Data.ByteString.Lazy (ByteString) import Hakyll.Core.Resource import Hakyll.Core.Resource.Provider -- | Create a dummy 'ResourceProvider' -- -dummyResourceProvider :: Map String String -> IO ResourceProvider +dummyResourceProvider :: Map String ByteString -> IO ResourceProvider dummyResourceProvider vfs = makeResourceProvider (map Resource (M.keys vfs)) + (return . TL.unpack . TL.decodeUtf8 . (vfs M.!) . unResource) (return . (vfs M.!) . unResource) - (return . LBC.pack . (vfs M.!) . unResource) |