Added ToContent Builder instance

2011-01-13 22:08:22 +02:00 · 2011-01-13 22:08:22 +02:00 · 06193634c4
commit 06193634c4
parent bf324ded19
1 changed files with 2 additions and 0 deletions
--- a/Yesod/Content.hs
+++ b/Yesod/Content.hs
@ -95,6 +95,8 @@ emptyContent = ContentBuilder mempty $ Just 0
 class ToContent a where
    toContent :: a -> Content

+instance ToContent Builder where
+    toContent = flip ContentBuilder Nothing
 instance ToContent B.ByteString where
    toContent bs = ContentBuilder (fromByteString bs) $ Just $ B.length bs
 instance ToContent L.ByteString where