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

Added ToContent Builder instance

Browse Source
This commit is contained in:
Michael Snoyman 2011-01-13 22:08:22 +02:00
parent bf324ded19
commit 06193634c4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Content.hs
View File

@ -95,6 +95,8 @@ emptyContent = ContentBuilder mempty $ Just 0
class ToContent a where class ToContent a where
toContent :: a -> Content toContent :: a -> Content
instance ToContent Builder where
toContent = flip ContentBuilder Nothing
instance ToContent B.ByteString where instance ToContent B.ByteString where
toContent bs = ContentBuilder (fromByteString bs) $ Just $ B.length bs toContent bs = ContentBuilder (fromByteString bs) $ Just $ B.length bs
instance ToContent L.ByteString where instance ToContent L.ByteString where