@@ -43,7 +43,6 @@ import Text.Pandoc.Parsing hiding ((<|>), many, optional, space,
4343import qualified Text.Pandoc.UTF8 as UTF8
4444import Data.Char ( chr, ord )
4545import Control.Monad
46−import Data.Default
4746import Text.Pandoc.Builder
4847import Data.Char (isLetter, isAlphaNum)
4948import Control.Applicative
@@ -72,23 +71,6 @@ parseLaTeX = do
7271 let (Pandoc _ bs') = doc bs
7372 return $ Pandoc meta bs'
7473
75−data LPState = LPState{
76− lpMeta :: Meta
77− , lpOptions :: ReaderOptions
78− , lpHasChapters :: Bool
79− , lpParserContext :: ParserContext
80− , lpQuoteContext :: QuoteContext
81− } deriving Show
82−
83−instance Default LPState where
84− def = LPState{
85− lpMeta = nullMeta
86− , lpOptions = def
87− , lpHasChapters = False
88− , lpParserContext = NullState
89− , lpQuoteContext = NoQuote
90− }
91−
9274type LP = Parser [Char] ParserState
9375
9476anyControlSeq :: LP String