Lazy seq output flushes stream after each write

stuartsierra · Jul 10, 2009 · 5e1a96f · 5e1a96f
1 parent 7f26bd3
commit 5e1a96f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/compojure/http/servlet.clj b/src/compojure/http/servlet.clj
@@ -82,7 +82,8 @@
     (seq? body)
       (with-open [writer (.getWriter response)]
         (doseq [chunk body]
-          (.print writer (str chunk))))
+          (.print writer (str chunk))
+          (.flush writer)))
     (instance? InputStream body)
       (with-open [out (.getOutputStream response)]
         (IOUtils/copy body out)