From 06193634c427b0490a80c1076bf767b67cb0bf37 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 13 Jan 2011 22:08:22 +0200 Subject: [PATCH] Added ToContent Builder instance --- Yesod/Content.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Yesod/Content.hs b/Yesod/Content.hs index 639b8db3..f65a0458 100644 --- 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