From b0c6651ac60e832195f266a71e7ab0dc3b38bc90 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 25 Jul 2012 08:56:46 +0300 Subject: [PATCH] Strictness annotations on Content --- yesod-core/Yesod/Content.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/yesod-core/Yesod/Content.hs b/yesod-core/Yesod/Content.hs index d5827ea3..3276b412 100644 --- a/yesod-core/Yesod/Content.hs +++ b/yesod-core/Yesod/Content.hs @@ -67,10 +67,10 @@ import Data.String (IsString (fromString)) import Network.Wai (FilePart) import Data.Conduit (Source, ResourceT, Flush) -data Content = ContentBuilder Builder (Maybe Int) -- ^ The content and optional content length. - | ContentSource (Source (ResourceT IO) (Flush Builder)) - | ContentFile FilePath (Maybe FilePart) - | ContentDontEvaluate Content +data Content = ContentBuilder !Builder !(Maybe Int) -- ^ The content and optional content length. + | ContentSource !(Source (ResourceT IO) (Flush Builder)) + | ContentFile !FilePath !(Maybe FilePart) + | ContentDontEvaluate !Content -- | Zero-length enumerator. emptyContent :: Content