diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-21 08:41:24 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-21 08:41:24 -0800 |
| commit | fe1152985ca8824b62c7bce397a681e7e422e8e1 (patch) | |
| tree | c34a0de986b6944edd5892019adf0f33b5549aee /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | 4e446358d1a356ba77c5f7b3cd967bf6c5285c15 (diff) | |
| download | pandoc-fe1152985ca8824b62c7bce397a681e7e422e8e1.tar.gz | |
Shared: Made splitBy take a test instead of an element.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 70a913a1b..6006aac5b 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -340,7 +340,7 @@ authors :: GenParser Char ParserState Block authors = try $ do string "\\author{" raw <- many1 (notFollowedBy (char '}') >> inline) - let authors' = map normalizeSpaces $ splitBy LineBreak raw + let authors' = map normalizeSpaces $ splitBy (== LineBreak) raw char '}' spaces updateState (\s -> s { stateAuthors = authors' }) |