Strict fields in GWData

2011-03-23 23:28:11 +02:00 · 2011-03-23 23:28:11 +02:00 · 77fee84f5d
commit 77fee84f5d
parent 70eba502de
2 changed files with 8 additions and 8 deletions
--- 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)
--- 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]