@@ -639,12 +639,12 @@ inline = choice [ str
640 , ltSign ] <?> "inline"
640 , ltSign ] <?> "inline"
642−escapedChar = try $ do
642+escapedChar = do
643 char '\\'
643 char '\\'
644 state <- getState
644 state <- getState
645− result <- if stateStrict state
645+ result <- option '\\' $ if stateStrict state
646− then oneOf "\\`*_{}[]()>#+-.!~"
646+ then oneOf "\\`*_{}[]()>#+-.!~"
647− else satisfy (not . isAlphaNum)
647+ else satisfy (not . isAlphaNum)
648 return $ Str [result]
648 return $ Str [result]
650ltSign = do
650ltSign = do