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