From ecf11f4aa02b82ccb4fa7c275766976511581e65 Mon Sep 17 00:00:00 2001 From: Pagwin Date: Sat, 13 Dec 2025 18:41:09 -0500 Subject: [PATCH] forgot inline code --- src/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Markdown.hs b/src/Markdown.hs index 673f439..34db70b 100644 --- a/src/Markdown.hs +++ b/src/Markdown.hs @@ -125,7 +125,7 @@ inlineText' disallow = choice [try $ strikethrough disallow, try $ bold disallow plain_text :: Parser s m () -> Parser s m InlineText plain_text disallow = do first <- optional $ ((notFollowedBy disallow) *> anySingle) - rem <- many ((notFollowedBy (disallow <|> (void $ choice $ (map char "*[~")))) *> anySingle) + rem <- many ((notFollowedBy (disallow <|> (void $ choice $ (map char "`*[~")))) *> anySingle) pure $ Text $ T.pack $ case first of Nothing -> []