diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-30 09:50:02 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-30 09:50:02 +0100 |
| commit | a20bc7bed9fd03e930297467f876c27f0072d1de (patch) | |
| tree | d8086281527165f87939c83c3ea66cff2908d607 /src | |
| parent | 010b3bc60449b47b4347f4ae3277e4277d9e8bde (diff) | |
| download | hakyll-a20bc7bed9fd03e930297467f876c27f0072d1de.tar.gz | |
Make saveSnapshot chainable
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Core/Compiler.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs index 9fec69b..16364c9 100644 --- a/src/Hakyll/Core/Compiler.hs +++ b/src/Hakyll/Core/Compiler.hs @@ -109,11 +109,14 @@ getResourceWith reader = do -------------------------------------------------------------------------------- +-- | Save a snapshot of the item. This function returns the same item, which +-- convenient for building '>>=' chains. saveSnapshot :: (Binary a, Typeable a) - => Internal.Snapshot -> Item a -> Compiler () + => Internal.Snapshot -> Item a -> Compiler (Item a) saveSnapshot snapshot item = do store <- compilerStore <$> compilerAsk compilerUnsafeIO $ Internal.saveSnapshot store snapshot item + return item -------------------------------------------------------------------------------- |