diff --git a/Yesod/Internal.hs b/Yesod/Internal.hs index 34cf642b..0d7ce029 100644 --- a/Yesod/Internal.hs +++ b/Yesod/Internal.hs @@ -125,13 +125,13 @@ sessionName :: ByteString sessionName = "_SESSION" data GWData a = GWData - (Body a) - (Last Title) - (UniqueList (Script a)) - (UniqueList (Stylesheet a)) - (Maybe (Cassius a)) - (Maybe (Julius a)) - (Head a) + !(Body a) + !(Last Title) + !(UniqueList (Script a)) + !(UniqueList (Stylesheet a)) + !(Maybe (Cassius a)) + !(Maybe (Julius a)) + !(Head a) instance Monoid (GWData a) where mempty = GWData mempty mempty mempty mempty mempty mempty mempty mappend (GWData a1 a2 a3 a4 a5 a6 a7) diff --git a/widget-benchmark.hs b/widget-benchmark.hs index f3114462..9be4acd8 100644 --- a/widget-benchmark.hs +++ b/widget-benchmark.hs @@ -24,7 +24,7 @@ main = defaultMain ] where rows :: Int - rows = 10 + rows = 1000 bigTableData :: [[Int]] bigTableData = replicate rows [1..10]