summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-10-05 19:38:43 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-10-05 19:38:43 -0700
commit1b68dc340554c6e45e922fb8a59ac37c7cdb5752 (patch)
tree2980070a1eb522fa081b2da6416057d66f58251d /src/Text/Pandoc
parent5419b504cef0cc6e1a0f3e321b2fc0a66e12db3c (diff)
Revert "Added stateWarnings to ParserState, added warning function."
This reverts commit 5419b504cef0cc6e1a0f3e321b2fc0a66e12db3c.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Parsing.hs8
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 597c00081..9239ed9a3 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -62,7 +62,6 @@ module Text.Pandoc.Parsing ( (>>~),
getOption,
guardEnabled,
guardDisabled,
- warning,
ParserState (..),
defaultParserState,
HeaderType (..),
@@ -726,7 +725,6 @@ data ParserState = ParserState
stateExamples :: M.Map String Int, -- ^ Map from example labels to numbers
stateHasChapters :: Bool, -- ^ True if \chapter encountered
stateMacros :: [Macro], -- ^ List of macros defined so far
- stateWarnings :: [(SourcePos, String)], -- ^ List of warnings
stateRstDefaultRole :: String -- ^ Current rST default interpreted text role
}
@@ -753,17 +751,11 @@ defaultParserState =
stateExamples = M.empty,
stateHasChapters = False,
stateMacros = [],
- stateWarnings = [],
stateRstDefaultRole = "title-reference"}
getOption :: (ReaderOptions -> a) -> Parser s ParserState a
getOption f = (f . stateOptions) `fmap` getState
-warning :: String -> Parser s ParserState ()
-warning msg = do
- pos <- getPosition
- modifyState $ \st -> st{ stateWarnings = stateWarnings st ++ [(pos,msg)] }
-
-- | Succeed only if the extension is enabled.
guardEnabled :: Extension -> Parser s ParserState ()
guardEnabled ext = getOption readerExtensions >>= guard . Set.member ext