Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Rewrote 'para' for greater efficiency.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@948 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-08-29 00:08:18 +00:00
parent 902d6c7115
commit 3edf5834e8
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -433,12 +433,10 @@ definitionList = do
para = try $ do
result <- many1 inline
newline
st <- getState
if stateStrict st
then choice [ lookAhead blockQuote, lookAhead header,
(blanklines >> return Null) ]
else choice [ lookAhead emacsBoxQuote >> return Null,
(blanklines >> return Null) ]
blanklines <|> do st <- getState
if stateStrict st
then lookAhead (blockQuote <|> header) >> return ""
else lookAhead emacsBoxQuote >> return ""
return $ Para $ normalizeSpaces result
plain = many1 inline >>= return . Plain . normalizeSpaces