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

Note about strictness annotations

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-10 20:36:46 +03:00
parent b67d225f56
commit 7133f75bf3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-core/Yesod/Core/Types.hs
View File

@ -313,6 +313,9 @@ data Header =
| Header ByteString ByteString | Header ByteString ByteString
deriving (Eq, Show) deriving (Eq, Show)
-- FIXME In the next major version bump, let's just add strictness annotations
-- to Header (and probably everywhere else). We can also add strictness
-- annotations to SetCookie in the cookie package.
instance NFData Header where instance NFData Header where
rnf (AddCookie x) = rnf x rnf (AddCookie x) = rnf x
rnf (DeleteCookie x y) = rnf x `seq` rnf y rnf (DeleteCookie x y) = rnf x `seq` rnf y