mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
Disable cachedWidget to avoid memory exhaustion
This commit is contained in:
parent
137453d9a2
commit
ad28109f46
@ -29,7 +29,10 @@ getPackageListR = defaultLayout $ do
|
||||
|
||||
-- FIXME move somewhere else, maybe even yesod-core
|
||||
cachedWidget :: NominalDiffTime -> Text -> Widget -> Widget
|
||||
cachedWidget diff key widget = do
|
||||
cachedWidget _diff _key widget = do
|
||||
-- Temporarily disabled, seems to be eating up too much memory
|
||||
widget
|
||||
{-
|
||||
ref <- widgetCache <$> getYesod
|
||||
now <- liftIO getCurrentTime
|
||||
mpair <- lookup key <$> readIORef ref
|
||||
@ -44,3 +47,4 @@ cachedWidget diff key widget = do
|
||||
-- FIXME render the builders in gw for more efficiency
|
||||
atomicModifyIORef' ref $ \m -> (insertMap key (addUTCTime diff now, gw) m, ())
|
||||
return ((), gw)
|
||||
-}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user