From 0fa5792790cf06fc4b29d7808916c5bbce664aa4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 1 Jul 2013 22:39:56 -0700
Subject: Markdown reader:  Ignore fields ending with _ in YAML headers.

---
 src/Text/Pandoc/Readers/Markdown.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index e1d518350..d333c0cd4 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -248,9 +248,9 @@ yamlTitleBlock = try $ do
                    addWarning (Just pos) "YAML header is not an object"
                    return $ return id
 
--- ignore fields starting with _
+-- ignore fields ending with _
 ignorable :: Text -> Bool
-ignorable t = (T.pack "_") `T.isPrefixOf` t
+ignorable t = (T.pack "_") `T.isSuffixOf` t
 
 toMetaValue :: ReaderOptions -> Text -> MetaValue
 toMetaValue opts x =
-- 
cgit v1.2.3