diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-08 09:37:23 +0900 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-08 09:37:23 +0900 |
| commit | edfdb7d677e443a6809b1d98e54d861898109412 (patch) | |
| tree | 5905d8b4cd5ed288231d5aa746f9351b70b3aecf /src/Hakyll/Core/Resource/Provider.hs | |
| parent | fdc62430a6ddde912931e286b6ae76c2505ade0b (diff) | |
| download | hakyll-edfdb7d677e443a6809b1d98e54d861898109412.tar.gz | |
Style nazi strikes!
Diffstat (limited to 'src/Hakyll/Core/Resource/Provider.hs')
| -rw-r--r-- | src/Hakyll/Core/Resource/Provider.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Hakyll/Core/Resource/Provider.hs b/src/Hakyll/Core/Resource/Provider.hs index 14848a8..ebd5984 100644 --- a/src/Hakyll/Core/Resource/Provider.hs +++ b/src/Hakyll/Core/Resource/Provider.hs @@ -36,8 +36,8 @@ import Hakyll.Core.Resource -- | A value responsible for retrieving and listing resources -- data ResourceProvider = ResourceProvider - { -- | A list of all resources this provider is able to provide - resourceSet :: S.Set Resource + { -- | A set of all resources this provider is able to provide + resourceSet :: S.Set Resource , -- | Retrieve a certain resource as string resourceString :: Resource -> IO String , -- | Retrieve a certain resource as lazy bytestring @@ -55,7 +55,8 @@ makeResourceProvider :: [Resource] -- ^ Resource list -> (Resource -> IO LB.ByteString) -- ^ ByteString reader -> (Resource -> IO UTCTime) -- ^ Time checker -> IO ResourceProvider -- ^ Resulting provider -makeResourceProvider l s b t = ResourceProvider (S.fromList l) s b t <$> newMVar M.empty +makeResourceProvider l s b t = + ResourceProvider (S.fromList l) s b t <$> newMVar M.empty -- | Get the list of all resources resourceList :: ResourceProvider -> [Resource] |