diff --git a/Handler/PackageList.hs b/Handler/PackageList.hs index f5f1477..731b8a7 100644 --- a/Handler/PackageList.hs +++ b/Handler/PackageList.hs @@ -28,5 +28,6 @@ cachedWidget diff key widget = do $logDebug "Not using cached widget" WidgetT $ \hd -> do ((), gw) <- unWidgetT widget hd + -- FIXME render the builders in gw for more efficiency atomicModifyIORef' ref $ \m -> (insertMap key (addUTCTime diff now, gw) m, ()) return ((), gw) diff --git a/templates/package-list.hamlet b/templates/package-list.hamlet index cca76d8..8890c14 100644 --- a/templates/package-list.hamlet +++ b/templates/package-list.hamlet @@ -3,3 +3,4 @@ $forall name <- names