LaTeX reader: Fix small regression in pattern argumnents...

introduced in last commit.
2018-10-15 09:46:15 -07:00 · 2018-10-15 09:46:15 -07:00 · 68ec838014
commit 68ec838014
parent 41663e9eef
1 changed files with 2 additions and 1 deletions
--- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
@ -425,7 +425,8 @@ doMacros' n inp = do
       getargs argmap rest
    getargs argmap (ArgNum i : Pattern toks : rest) =
      try $ do
-        x <- mconcat <$> manyTill bracedOrToken (matchPattern toks)
+        x <- mconcat <$> manyTill (braced <|> ((:[]) <$> anyTok))
+                  (matchPattern toks)
        getargs (M.insert i x argmap) rest
    getargs argmap (ArgNum i : rest) = do
      x <- try $ spaces >> bracedOrToken