From ac7714ca398eaf25dd512754c1cb9aee297ff3d1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 26 Oct 2013 18:22:59 -0700
Subject: Text.Pandoc.Writer.Shared: fixed bug in tagWithAttrs.

A space was omitted before key-value attributes, leading
to invalid HTML.
---
 src/Text/Pandoc/Writers/Shared.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs
index 89923822c..9cb08803c 100644
--- a/src/Text/Pandoc/Writers/Shared.hs
+++ b/src/Text/Pandoc/Writers/Shared.hs
@@ -134,7 +134,6 @@ tagWithAttrs tag (ident,classes,kvs) = hsep
   ,if null classes
       then empty
       else "class=" <> doubleQuotes (text (unwords classes))
-  ]
-  <> hsep (map (\(k,v) -> text k <> "=" <>
+  ,hsep (map (\(k,v) -> text k <> "=" <>
                 doubleQuotes (text (escapeStringForXML v))) kvs)
-  <> ">"
+  ] <> ">"
-- 
cgit v1.2.3