81881ce · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Parsing: Lookahead for non-whitespace after single/double quote start.

81881ceJohn MacFarlane8 years ago

src/Text/Pandoc/Parsing.hs+4−2

@@ -1366,7 +1366,9 @@ singleQuoteStart = do

1366 failIfInQuoteContext InSingleQuote

1367 -- single quote start can't be right after str

1368 guard =<< notAfterString

1369+ try $ do

1369− () <$ charOrRef "'\8216\145"

1370+ charOrRef "'\8216\145"

1371+ notFollowedBy (oneOf [' ', '\t', '\n'])

1370

1372

1371singleQuoteEnd :: Stream s m Char

1373singleQuoteEnd :: Stream s m Char

1372 => ParserT s st m ()

1374 => ParserT s st m ()

@@ -1379,7 +1381,7 @@ doubleQuoteStart :: (HasQuoteContext st m, Stream s m Char)

1379doubleQuoteStart = do

1381doubleQuoteStart = do

1380 failIfInQuoteContext InDoubleQuote

1382 failIfInQuoteContext InDoubleQuote

1381 try $ do charOrRef "\"\8220\147"

1383 try $ do charOrRef "\"\8220\147"

1382− notFollowedBy . satisfy $ flip elem [' ', '\t', '\n']

1384+ notFollowedBy (oneOf [' ', '\t', '\n'])

1383

1385

1384doubleQuoteEnd :: Stream s m Char

1386doubleQuoteEnd :: Stream s m Char

1385 => ParserT s st m ()

1387 => ParserT s st m ()

test/command/4637.mdnew file+6

@@ -0,0 +1,6 @@

1+```

2+% pandoc -t latex

3+more \indextext{dogs}' than \indextext{cats}'

4+^D

5+more \indextext{dogs}' than \indextext{cats}'

6+```