diff --git a/Yesod/Helpers/Sitemap.hs b/Yesod/Helpers/Sitemap.hs
index bc0694f2..581b363b 100644
--- a/Yesod/Helpers/Sitemap.hs
+++ b/Yesod/Helpers/Sitemap.hs
@@ -21,6 +21,7 @@ module Yesod.Helpers.Sitemap
     , SitemapUrl (..)
     , SitemapLoc (..)
     , SitemapChangeFreq (..)
+    , SitemapResponse (..)
     ) where
 
 import Yesod.Definitions
diff --git a/Yesod/Rep.hs b/Yesod/Rep.hs
index 68ad4e42..b59686ea 100644
--- a/Yesod/Rep.hs
+++ b/Yesod/Rep.hs
@@ -149,8 +149,10 @@ instance HasReps [(ContentType, Content)] where
                     (x:_) -> x
                     _ -> error "chooseRep [(ContentType, Content)] of empty"
 
-newtype Plain = Plain Text
+newtype Plain = Plain { unPlain :: Text }
     deriving (Eq, Show)
+instance HasReps Plain where
+    reps = [(TypePlain, return . cs . unPlain)]
 
 plain :: ConvertSuccess x Text => x -> Plain
 plain = Plain . cs