From 5e9b8ba1f4bb8d24ab1699b7465892b7b6025fd3 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 10 Apr 2011 21:51:45 +0300
Subject: [PATCH] Fix building

---
 Yesod/Helpers/Sitemap.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Yesod/Helpers/Sitemap.hs b/Yesod/Helpers/Sitemap.hs
index 60562bc7..4429225c 100644
--- a/Yesod/Helpers/Sitemap.hs
+++ b/Yesod/Helpers/Sitemap.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedStrings #-}
 ---------------------------------------------------------
 --
 -- Module        : Yesod.Helpers.Sitemap
@@ -29,6 +30,7 @@ import Yesod.Handler (Route, GHandler, getUrlRender)
 import Yesod.Handler (hamletToContent)
 import Text.Hamlet (Hamlet, xhamlet)
 import Data.Time (UTCTime)
+import Data.Monoid (mappend)
 
 data SitemapChangeFreq = Always
                        | Hourly
@@ -78,4 +80,4 @@ robots :: Route master -- ^ sitemap url
        -> GHandler sub master RepPlain
 robots smurl = do
     render <- getUrlRender
-    return $ RepPlain $ toContent $ "Sitemap: " ++ render smurl
+    return $ RepPlain $ toContent $ "Sitemap: " `mappend` render smurl