haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-05 15:50:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Disable cachedWidget to avoid memory exhaustion

Browse Source
This commit is contained in:
Michael Snoyman 2015-01-04 16:51:46 +02:00
parent 137453d9a2
commit ad28109f46
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/PackageList.hs
View File

@ -29,7 +29,10 @@ getPackageListR = defaultLayout $ do
-- FIXME move somewhere else, maybe even yesod-core -- FIXME move somewhere else, maybe even yesod-core
cachedWidget :: NominalDiffTime -> Text -> Widget -> Widget 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 ref <- widgetCache <$> getYesod
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
mpair <- lookup key <$> readIORef ref mpair <- lookup key <$> readIORef ref
@ -44,3 +47,4 @@ cachedWidget diff key widget = do
-- FIXME render the builders in gw for more efficiency -- FIXME render the builders in gw for more efficiency
atomicModifyIORef' ref $ \m -> (insertMap key (addUTCTime diff now, gw) m, ()) atomicModifyIORef' ref $ \m -> (insertMap key (addUTCTime diff now, gw) m, ())
return ((), gw) return ((), gw)
-}