diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-04 17:13:06 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-12-04 17:13:06 +0100 |
| commit | 7ace7dd66b3b82edaafeb822d8d0f9318feb8b79 (patch) | |
| tree | a8950b5afc67848092dd0bc3eefddc769b0a3aa0 /src | |
| parent | 733b1f3ae2074cce3eb25fbbed7b4d367aff7ebd (diff) | |
| download | pandoc-7ace7dd66b3b82edaafeb822d8d0f9318feb8b79.tar.gz | |
Markdown writer: Fixed incorrect word wrapping.
Previously pandoc would sometimes wrap lines too early
due to this bug.
Closes #3277.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 3a6ea77ac..d08998eef 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -858,7 +858,7 @@ avoidBadWrapsInList (x:xs) = x : avoidBadWrapsInList xs isOrderedListMarker :: String -> Bool isOrderedListMarker xs = (last xs `elem` ['.',')']) && - isRight (runParserT (anyOrderedListMarker >> eof) + isRight (runParser (anyOrderedListMarker >> eof) defaultParserState "" xs) isRight :: Either a b -> Bool |