From edfdb7d677e443a6809b1d98e54d861898109412 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 8 Aug 2012 09:37:23 +0900 Subject: Style nazi strikes! --- src/Hakyll/Core/Resource/Provider.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Hakyll/Core/Resource') 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] -- cgit v1.2.3