From 7133f75bf3297923238081ee2a9cf109217078a1 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 10 Apr 2014 20:36:46 +0300 Subject: [PATCH] Note about strictness annotations --- yesod-core/Yesod/Core/Types.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/yesod-core/Yesod/Core/Types.hs b/yesod-core/Yesod/Core/Types.hs index c64f7708..eb0f6090 100644 --- a/yesod-core/Yesod/Core/Types.hs +++ b/yesod-core/Yesod/Core/Types.hs @@ -313,6 +313,9 @@ data Header = | Header ByteString ByteString 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 rnf (AddCookie x) = rnf x rnf (DeleteCookie x y) = rnf x `seq` rnf y