@@ -317,11 +317,11 @@ title = try $ do
317authors :: GenParser Char ParserState Block
317authors :: GenParser Char ParserState Block
318authors = try $ do
318authors = try $ do
319 string "\\author{"
319 string "\\author{"
320− authors' <- sepBy (many1 (notFollowedBy (oneOf "};,") >> inline)) (oneOf ",;")
320+ raw <- many1 (notFollowedBy (char '}') >> inline)
321+ let authors' = map normalizeSpaces $ splitBy LineBreak raw
323− let authors'' = map normalizeSpaces authors'
324− updateState (\s -> s { stateAuthors = authors'' })
324+ updateState (\s -> s { stateAuthors = authors' })
325 return Null
325 return Null
327date :: GenParser Char ParserState Block
327date :: GenParser Char ParserState Block