By | Chris Done |
At | 2011-07-09 |
Title | Disable cache. |
Description |
Edit file src/Amelie/Controller/Cache.hs 33188 → 33188
24 24 newCache :: IO Cache
25 25 newCache = do
26 26 var <- newMVar M.empty
27 27 return $ Cache var
28 28 + 29 cache :: Key -> Controller (Maybe Html) -> Controller (Maybe Text)
+ 30 cache _key generate = fmap (fmap renderHtml) generate
+ 31 29 32 -- | Generate and save into the cache, or retrieve existing from the
30 33 -- | cache.
- 31 cache :: Key -> Controller (Maybe Html) -> Controller (Maybe Text)
- 32 cache key generate = do
+ 34 cache' :: Key -> Controller (Maybe Html) -> Controller (Maybe Text)
+ 35 cache' key generate = do
33 36 Cache var <- asks controllerStateCache
34 37 mapping <- io $ readMVar var
35 38 case M.lookup key mapping of
36 39 Just html -> return $ Just html
37 40 Nothing -> do
… … … …