Sitemap: start with a flush

2013-04-22 19:54:16 +03:00 · 2013-04-22 19:54:16 +03:00 · f9520e90e7
commit f9520e90e7
parent 42943deab9
1 changed files with 3 additions and 1 deletions
--- 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.