diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 09:06:34 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 09:06:34 -0800 |
| commit | 922469bbb27b142d1e8ef11c95d9e1b602cd7c29 (patch) | |
| tree | c1814113e293020a981f7e7ce3c4cb75ecf53ebf | |
| parent | bae3b49a5aba7b4852e6abc2e6a4ebd83375d80f (diff) | |
| download | pandoc-922469bbb27b142d1e8ef11c95d9e1b602cd7c29.tar.gz | |
LaTeX reader: Fixed bug in authors.
| -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 () |