From 08631ef1a3c8a3afe18694bbeb8fd3d6f580a589 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 24 Jun 2013 20:56:35 -0700
Subject: Some test suite fixes for new metadata.

---
 src/Text/Pandoc/Writers/Native.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Native.hs b/src/Text/Pandoc/Writers/Native.hs
index afe73102c..090b97433 100644
--- a/src/Text/Pandoc/Writers/Native.hs
+++ b/src/Text/Pandoc/Writers/Native.hs
@@ -72,7 +72,7 @@ writeNative opts (Pandoc meta blocks) =
                     then Just $ writerColumns opts
                     else Nothing
       withHead = if writerStandalone opts
-                    then \bs -> text ("Pandoc (" ++ show meta ++ ") ") $$
+                    then \bs -> text ("Pandoc (" ++ show meta ++ ")") $$
                                   bs $$ cr
                     else id
   in  render colwidth $ withHead $ prettyList $ map prettyBlock blocks
-- 
cgit v1.2.3