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/MetadataCache.hs | |
| parent | 760b4344377c81922ce5ab4ba05a41f88f45165d (diff) | |
| download | hakyll-89272dd97f805695b3d03f9a9fb05d22f30d8a7d.tar.gz | |
Simplify stuff
Diffstat (limited to 'src/Hakyll/Core/ResourceProvider/MetadataCache.hs')
| -rw-r--r-- | src/Hakyll/Core/ResourceProvider/MetadataCache.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Hakyll/Core/ResourceProvider/MetadataCache.hs b/src/Hakyll/Core/ResourceProvider/MetadataCache.hs index 85062a0..959cdde 100644 --- a/src/Hakyll/Core/ResourceProvider/MetadataCache.hs +++ b/src/Hakyll/Core/ResourceProvider/MetadataCache.hs @@ -15,7 +15,7 @@ import qualified Hakyll.Core.Store as Store -------------------------------------------------------------------------------- -resourceMetadata :: ResourceProvider -> Identifier a -> IO Metadata +resourceMetadata :: ResourceProvider -> Identifier -> IO Metadata resourceMetadata rp r = do load rp r Store.Found md <- Store.get (resourceStore rp) @@ -24,7 +24,7 @@ resourceMetadata rp r = do -------------------------------------------------------------------------------- -resourceBody :: ResourceProvider -> Identifier a -> IO String +resourceBody :: ResourceProvider -> Identifier -> IO String resourceBody rp r = do load rp r Store.Found bd <- Store.get (resourceStore rp) @@ -33,14 +33,14 @@ resourceBody rp r = do -------------------------------------------------------------------------------- -resourceInvalidateMetadataCache :: ResourceProvider -> Identifier a -> IO () +resourceInvalidateMetadataCache :: ResourceProvider -> Identifier -> IO () resourceInvalidateMetadataCache rp r = do Store.delete (resourceStore rp) [name, toFilePath r, "metadata"] Store.delete (resourceStore rp) [name, toFilePath r, "body"] -------------------------------------------------------------------------------- -load :: ResourceProvider -> Identifier a -> IO () +load :: ResourceProvider -> Identifier -> IO () load rp r = do mmd <- Store.get store mdk :: IO (Store.Result Metadata) case mmd of |