Fix quote block

1 files changed, 6 insertions, 5 deletions

diff --git a/src/clarktown/parsers/quote_block.clj b/src/clarktown/parsers/quote_block.clj
index 8b9c997..ff2dda8 100644
--- a/src/clarktown/parsers/quote_block.clj
+++ b/src/clarktown/parsers/quote_block.clj
@@ -16,8 +16,9 @@
   "Renders a quote block."
   [block parsers]
   (let [matches (re-seq #">.*" block)
-        blocks (for [match matches]
-                  (-> (subs match 1)
-                      string/trim
-                      (parser/parse parsers)))]
-    (str "<blockquote>" (string/join "\n" blocks) "</blockquote>")))
+        blocks (->> (for [match matches]
+                      (-> (subs match 1)
+                          string/trim))
+                    (string/join "\n"))
+        block (parser/parse blocks parsers)]
+    (str "<blockquote>" block "</blockquote>")))