From 922469bbb27b142d1e8ef11c95d9e1b602cd7c29 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 5 Feb 2012 09:06:34 -0800 Subject: LaTeX reader: Fixed bug in authors. --- src/Text/Pandoc/Readers/LaTeX.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers/LaTeX.hs') 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 () -- cgit v1.2.3