aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs4
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 ()