@@ -39,7 +39,6 @@ import Text.Pandoc.Writers.Shared
3939import Text.Pandoc.Options
4040import Text.Pandoc.Parsing hiding (blankline, blanklines, char, space)
4141import Data.Maybe (fromMaybe)
42−import Data.Either (isRight)
4342import Data.List ( group, stripPrefix, find, intersperse, transpose, sortBy )
4443import Data.Char ( isSpace, isPunctuation )
4544import Data.Ord ( comparing )
@@ -713,6 +712,10 @@ inlineListToMarkdown opts lst = do
713712 ')':_ -> True
714713 _ -> False
715714
715+isRight :: Either a b -> Bool
716+isRight (Right _) = True
717+isRight (Left _) = False
718+
716719escapeSpaces :: Inline -> Inline
717720escapeSpaces (Str s) = Str $ substitute " " "\\ " s
718721escapeSpaces Space = Str "\\ "