From b983adf0d0cbc98d2da1e2751f46ae1f93352be6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 19 Mar 2015 11:48:05 -0700 Subject: Markdown writer: fixes for GHC 7.10. --- src/Text/Pandoc/Writers/Markdown.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index ebf7e20e2..dee4d56a4 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -724,9 +724,9 @@ avoidBadWrapsInList [] = [] avoidBadWrapsInList (Space:Str ('>':cs):xs) = Str (' ':'>':cs) : avoidBadWrapsInList xs avoidBadWrapsInList (Space:Str [c]:[]) - | c `elem` "-*+" = Str [' ', c] : [] + | c `elem` ['-','*','+'] = Str [' ', c] : [] avoidBadWrapsInList (Space:Str [c]:Space:xs) - | c `elem` "-*+" = Str [' ', c] : Space : avoidBadWrapsInList xs + | c `elem` ['-','*','+'] = Str [' ', c] : Space : avoidBadWrapsInList xs avoidBadWrapsInList (Space:Str cs:Space:xs) | isOrderedListMarker cs = Str (' ':cs) : Space : avoidBadWrapsInList xs avoidBadWrapsInList (Space:Str cs:[]) @@ -734,7 +734,7 @@ avoidBadWrapsInList (Space:Str cs:[]) avoidBadWrapsInList (x:xs) = x : avoidBadWrapsInList xs isOrderedListMarker :: String -> Bool -isOrderedListMarker xs = (last xs `elem` ".)") && +isOrderedListMarker xs = (last xs `elem` ['.',')']) && isRight (runParserT (anyOrderedListMarker >> eof) defaultParserState "" xs) -- cgit v1.2.3