@@ -323,9 +323,9 @@ blockToMarkdown opts (Plain inlines) = do
323323 then Just $ writerColumns opts
324324 else Nothing
325325 let rendered = render colwidth contents
326− let escapeDelimiter (x:xs) | x `elem` ".()" = '\\':x:xs
327− | otherwise = x : escapeDelimiter xs
328− escapeDelimiter [] = []
326+ let escapeDelimiter (x:xs) | x `elem` (".()" :: String) = '\\':x:xs
327+ | otherwise = x : escapeDelimiter xs
328+ escapeDelimiter [] = []
329329 let contents' = if isEnabled Ext_all_symbols_escapable opts &&
330330 not (stPlain st) && beginsWithOrderedListMarker rendered
331331 then text $ escapeDelimiter rendered
@@ -681,7 +681,7 @@ inlineListToMarkdown opts lst =
681681 mapM (inlineToMarkdown opts) (avoidBadWraps lst) >>= return . cat
682682 where avoidBadWraps [] = []
683683 avoidBadWraps (Space:Str (c:cs):xs)
684− | c `elem` "-*+>" = Str (' ':c:cs) : avoidBadWraps xs
684+ | c `elem` ("-*+>" :: String) = Str (' ':c:cs) : avoidBadWraps xs
685685 avoidBadWraps (x:xs) = x : avoidBadWraps xs
686686
687687escapeSpaces :: Inline -> Inline
@@ -821,8 +821,8 @@ inlineToMarkdown opts (Cite (c:cs) lst)
821821 sdoc <- inlineListToMarkdown opts sinlines
822822 let k' = text (modekey m ++ "@" ++ k)
823823 r = case sinlines of
824− Str (y:_):_ | y `elem` ",;]@" -> k' <> sdoc
825− _ -> k' <+> sdoc
824+ Str (y:_):_ | y `elem` (",;]@" :: String) -> k' <> sdoc
825+ _ -> k' <+> sdoc
826826 return $ pdoc <+> r
827827 modekey SuppressAuthor = "-"
828828 modekey _ = ""