From 1b68dc340554c6e45e922fb8a59ac37c7cdb5752 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 5 Oct 2012 19:38:43 -0700
Subject: Revert "Added stateWarnings to ParserState, added warning function."

This reverts commit 5419b504cef0cc6e1a0f3e321b2fc0a66e12db3c.
---
 src/Text/Pandoc/Parsing.hs | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3