From 2cd049a1bf66f486e7110449854ceb253268fff7 Mon Sep 17 00:00:00 2001
From: mpickering <matthewtpickering@gmail.com>
Date: Wed, 20 Aug 2014 18:11:37 +0100
Subject: Txt2Tags reader: Header is now parsed only if standalone flag is set

---
 src/Text/Pandoc/Readers/Txt2Tags.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs
index 3a51b9d84..dc221568c 100644
--- a/src/Text/Pandoc/Readers/Txt2Tags.hs
+++ b/src/Text/Pandoc/Readers/Txt2Tags.hs
@@ -91,7 +91,10 @@ readTxt2TagsNoMacros = readTxt2Tags def
 
 parseT2T :: T2T Pandoc
 parseT2T = do
-  _ <- (Nothing <$ try blankline) <|> (Just <$> (count 3 anyLine))
+  -- Parse header if standalone flag is set
+  optional ((readerStandalone . stateOptions <$> getState) 
+            >>= guard 
+            >> (() <$ (try blankline) <|> () <$ (count 3 anyLine)))
   config <- manyTill setting (notFollowedBy setting)
   -- TODO: Handle settings better
   let settings = foldr (\(k,v) -> B.setMeta k (MetaString v)) nullMeta config
-- 
cgit v1.2.3