haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Strict fields in GWData

Browse Source
This commit is contained in:
Michael Snoyman 2011-03-23 23:28:11 +02:00
parent 70eba502de
commit 77fee84f5d
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Yesod/Internal.hs
View File

@ -125,13 +125,13 @@ sessionName :: ByteString
sessionName = "_SESSION" sessionName = "_SESSION"
data GWData a = GWData data GWData a = GWData
(Body a) !(Body a)
(Last Title) !(Last Title)
(UniqueList (Script a)) !(UniqueList (Script a))
(UniqueList (Stylesheet a)) !(UniqueList (Stylesheet a))
(Maybe (Cassius a)) !(Maybe (Cassius a))
(Maybe (Julius a)) !(Maybe (Julius a))
(Head a) !(Head a)
instance Monoid (GWData a) where instance Monoid (GWData a) where
mempty = GWData mempty mempty mempty mempty mempty mempty mempty mempty = GWData mempty mempty mempty mempty mempty mempty mempty
mappend (GWData a1 a2 a3 a4 a5 a6 a7) mappend (GWData a1 a2 a3 a4 a5 a6 a7)

2
widget-benchmark.hs
View File

@ -24,7 +24,7 @@ main = defaultMain
] ]
where where
rows :: Int rows :: Int
rows = 10 rows = 1000
bigTableData :: [[Int]] bigTableData :: [[Int]]
bigTableData = replicate rows [1..10] bigTableData = replicate rows [1..10]