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

Strictness annotations on Content

Browse Source
This commit is contained in:
Michael Snoyman 2012-07-25 08:56:46 +03:00
parent c009067b11
commit b0c6651ac6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-core/Yesod/Content.hs
View File

@ -67,10 +67,10 @@ import Data.String (IsString (fromString))
import Network.Wai (FilePart) import Network.Wai (FilePart)
import Data.Conduit (Source, ResourceT, Flush) import Data.Conduit (Source, ResourceT, Flush)
data Content = ContentBuilder Builder (Maybe Int) -- ^ The content and optional content length. data Content = ContentBuilder !Builder !(Maybe Int) -- ^ The content and optional content length.
| ContentSource (Source (ResourceT IO) (Flush Builder)) | ContentSource !(Source (ResourceT IO) (Flush Builder))
| ContentFile FilePath (Maybe FilePart) | ContentFile !FilePath !(Maybe FilePart)
| ContentDontEvaluate Content | ContentDontEvaluate !Content
-- | Zero-length enumerator. -- | Zero-length enumerator.
emptyContent :: Content emptyContent :: Content