diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 2d7c5181e..09de52f7d 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -266,8 +266,10 @@ addSubtitle tit = updateState (\s -> s{ stateTitle = stateTitle s ++ authors :: LP () authors = try $ do char '{' - let oneAuthor = mconcat <$> many1 (notFollowedBy' (controlSeq "and") >> inline) + let oneAuthor = mconcat <$> + many1 (notFollowedBy' (controlSeq "and") >> inline) auths <- sepBy oneAuthor (controlSeq "and") + char '}' updateState (\s -> s { stateAuthors = map (normalizeSpaces . toList) auths }) addDate :: Inlines -> LP () |