diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-26 21:30:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-26 21:30:00 -0700 |
| commit | 64376955745cf4fd407947eb8022460bf498176b (patch) | |
| tree | 546bd5711ac4c861a601a8bfb0e5bc89e8996c7a /src | |
| parent | 1b3431a165309aad3a28a0e8a75755c299561280 (diff) | |
| download | pandoc-64376955745cf4fd407947eb8022460bf498176b.tar.gz | |
Markdown writer: don't crash on Str "".
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 95977ce17..523dfeaed 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -931,7 +931,7 @@ avoidBadWrapsInList (s:Str cs:[]) avoidBadWrapsInList (x:xs) = x : avoidBadWrapsInList xs isOrderedListMarker :: String -> Bool -isOrderedListMarker xs = (last xs `elem` ['.',')']) && +isOrderedListMarker xs = not (null xs) && (last xs `elem` ['.',')']) && isRight (runParser (anyOrderedListMarker >> eof) defaultParserState "" xs) |