From f9520e90e75b3ee3fcda06828f8e15db5514eee4 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 22 Apr 2013 19:54:16 +0300
Subject: [PATCH] Sitemap: start with a flush

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

diff --git a/yesod-sitemap/Yesod/Sitemap.hs b/yesod-sitemap/Yesod/Sitemap.hs
index a25c0b95..308164f8 100644
--- a/yesod-sitemap/Yesod/Sitemap.hs
+++ b/yesod-sitemap/Yesod/Sitemap.hs
@@ -78,7 +78,9 @@ sitemap :: Source (HandlerT site IO) (SitemapUrl (Route site))
         -> HandlerT site IO TypedContent
 sitemap urls = do
     render <- getUrlRender
-    respondSource typeXml $ urls $= sitemapConduit render $= renderBuilder def $= CL.map Chunk
+    respondSource typeXml $ do
+        yield Flush
+        urls $= sitemapConduit render $= renderBuilder def $= CL.map Chunk
 
 -- | Convenience wrapper for @sitemap@ for the case when the input is an
 -- in-memory list.