git.iko.soy/typeable/pandoc
on master help sign in
Revert "LaTeX reader: Added LPState."
994597fJohn MacFarlane
src/Text/Pandoc/Readers/LaTeX.hs−18
compare with master
unifiedsplit
@@ -43,7 +43,6 @@ import Text.Pandoc.Parsing hiding ((<|>), many, optional, space,
43import qualified Text.Pandoc.UTF8 as UTF8
43import qualified Text.Pandoc.UTF8 as UTF8
44import Data.Char ( chr, ord )
44import Data.Char ( chr, ord )
45import Control.Monad
45import Control.Monad
46−import Data.Default
47import Text.Pandoc.Builder
46import Text.Pandoc.Builder
48import Data.Char (isLetter, isAlphaNum)
47import Data.Char (isLetter, isAlphaNum)
49import Control.Applicative
48import Control.Applicative
@@ -72,23 +71,6 @@ parseLaTeX = do
72 let (Pandoc _ bs') = doc bs
71 let (Pandoc _ bs') = doc bs
73 return $ Pandoc meta bs'
72 return $ Pandoc meta bs'
74
73
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−
92type LP = Parser [Char] ParserState
74type LP = Parser [Char] ParserState
93
75
94anyControlSeq :: LP String
76anyControlSeq :: LP String