aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-08-18 16:22:56 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-08-18 16:22:56 -0700
commitaf786829a0d64e373218f4c84c105796e9663b6f (patch)
tree1c31dfb8b4b16504befc3b5fa94098b027469f4e /src
parent05cc3a5c2182072ba93ffe4ac8b6661c098202e7 (diff)
downloadpandoc-af786829a0d64e373218f4c84c105796e9663b6f.tar.gz
Parsing: Added stateMeta' to ParserState.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Parsing.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 2f42aba41..c16d5bb1d 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -801,6 +801,7 @@ data ParserState = ParserState
stateNotes :: NoteTable, -- ^ List of notes (raw bodies)
stateNotes' :: NoteTable', -- ^ List of notes (parsed bodies)
stateMeta :: Meta, -- ^ Document metadata
+ stateMeta' :: F Meta, -- ^ Document metadata
stateHeaderTable :: [HeaderType], -- ^ Ordered list of header types used
stateHeaders :: M.Map Inlines String, -- ^ List of headers and ids (used for implicit ref links)
stateIdentifiers :: [String], -- ^ List of header identifiers used
@@ -834,6 +835,7 @@ defaultParserState =
stateNotes = [],
stateNotes' = [],
stateMeta = nullMeta,
+ stateMeta' = return nullMeta,
stateHeaderTable = [],
stateHeaders = M.empty,
stateIdentifiers = [],