Markdown writer: don't crash on Str "".
commit64376955745cf4fd407947eb8022460bf498176b
authorJohn MacFarlane <jgm@berkeley.edu>
dateSat 26 Aug 2017, 21:30 (9 years ago)
parent1b3431a
src/Text/Pandoc/Writers/Markdown.hs+1−1
@@ -931,7 +931,7 @@ avoidBadWrapsInList (s:Str cs:[])
931931avoidBadWrapsInList (x:xs) = x : avoidBadWrapsInList xs
932932
933933isOrderedListMarker :: String -> Bool
934−isOrderedListMarker xs = (last xs `elem` ['.',')']) &&
934+isOrderedListMarker xs = not (null xs) && (last xs `elem` ['.',')']) &&
935935 isRight (runParser (anyOrderedListMarker >> eof)
936936 defaultParserState "" xs)
937937