diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-13 13:13:17 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-13 13:13:17 +0100 |
| commit | 89272dd97f805695b3d03f9a9fb05d22f30d8a7d (patch) | |
| tree | 3ead5048b380454f42c84962513e53078506054c /src/Hakyll/Core/ResourceProvider/Internal.hs | |
| parent | 760b4344377c81922ce5ab4ba05a41f88f45165d (diff) | |
| download | hakyll-89272dd97f805695b3d03f9a9fb05d22f30d8a7d.tar.gz | |
Simplify stuff
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider/Internal.hs')
| -rw-r--r-- | src/Hakyll/Core/ResourceProvider/Internal.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Hakyll/Core/ResourceProvider/Internal.hs b/src/Hakyll/Core/ResourceProvider/Internal.hs index 02ff98c..628d1b5 100644 --- a/src/Hakyll/Core/ResourceProvider/Internal.hs +++ b/src/Hakyll/Core/ResourceProvider/Internal.hs @@ -33,9 +33,9 @@ import Hakyll.Core.Identifier -- | Responsible for retrieving and listing resources data ResourceProvider = ResourceProvider { -- | A list of all files found - resourceSet :: Set (Identifier ()) + resourceSet :: Set Identifier , -- | Cache keeping track of modified files - resourceModifiedCache :: IORef (Map (Identifier ()) Bool) + resourceModifiedCache :: IORef (Map Identifier Bool) , -- | Underlying persistent store for caching resourceStore :: Store } @@ -55,32 +55,32 @@ newResourceProvider store ignore directory = do -------------------------------------------------------------------------------- -resourceList :: ResourceProvider -> [Identifier ()] +resourceList :: ResourceProvider -> [Identifier] resourceList = S.toList . resourceSet -------------------------------------------------------------------------------- -- | Check if a given resource exists -resourceExists :: ResourceProvider -> Identifier a -> Bool +resourceExists :: ResourceProvider -> Identifier -> Bool resourceExists provider = - (`S.member` resourceSet provider) . setVersion Nothing . castIdentifier + (`S.member` resourceSet provider) . setVersion Nothing -------------------------------------------------------------------------------- -- | Each resource may have an associated metadata resource (with a @.metadata@ -- filename) -resourceMetadataResource :: Identifier a -> Identifier () +resourceMetadataResource :: Identifier -> Identifier resourceMetadataResource = fromFilePath . flip addExtension "metadata" . toFilePath -------------------------------------------------------------------------------- -- | Get the raw body of a resource as string -resourceString :: Identifier a -> IO String +resourceString :: Identifier -> IO String resourceString = readFile . toFilePath -------------------------------------------------------------------------------- -- | Get the raw body of a resource of a lazy bytestring -resourceLBS :: Identifier a -> IO BL.ByteString +resourceLBS :: Identifier -> IO BL.ByteString resourceLBS = BL.readFile . toFilePath |