@@ -939,13 +939,17 @@ failIfLink :: Inline -> GenParser tok st Inline
939939failIfLink (Link _ _) = pzero
940940failIfLink elt = return elt
941941
942−escapedChar :: GenParser Char ParserState Inline
943−escapedChar = try $ do
942+escapedChar' :: GenParser Char ParserState Char
943+escapedChar' = try $ do
944944 char '\\'
945945 state <- getState
946− result <- if stateStrict state
947− then oneOf "\\`*_{}[]()>#+-.!~"
948− else satisfy (not . isAlphaNum)
946+ if stateStrict state
947+ then oneOf "\\`*_{}[]()>#+-.!~"
948+ else satisfy (not . isAlphaNum)
949+
950+escapedChar :: GenParser Char ParserState Inline
951+escapedChar = do
952+ result <- escapedChar'
949953 return $ case result of
950954 ' ' -> Str "\160" -- "\ " is a nonbreaking space
951955 '\n' -> LineBreak -- "\[newline]" is a linebreak