From abe8b16cfdda0c051be0aa0b3b55927d10509824 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 22 Dec 2009 00:17:54 +0200
Subject: [PATCH] HasReps Plain; exposing SitemapResponse

---
 Yesod/Helpers/Sitemap.hs | 1 +
 Yesod/Rep.hs             | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

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