From 77fee84f5d9de1146601d6b09350510b2e97a98b Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 23 Mar 2011 23:28:11 +0200 Subject: [PATCH] Strict fields in GWData --- Yesod/Internal.hs | 14 +++++++------- widget-benchmark.hs | 2 +- 2 files changed, 8 insertions(+), 8 deletions(-) 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]