From ad28109f46c6aee29479610904fa61de28fb31ab Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 4 Jan 2015 16:51:46 +0200
Subject: [PATCH] Disable cachedWidget to avoid memory exhaustion

---
 Handler/PackageList.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Handler/PackageList.hs b/Handler/PackageList.hs
index fbfe44a..0fc21b0 100644
--- a/Handler/PackageList.hs
+++ b/Handler/PackageList.hs
@@ -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)
+                -}