Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

forgot inline code

Browse source
This commit is contained in:
Pagwin 2025-12-13 18:41:09 -05:00
parent 4b40fa19ad
commit ecf11f4aa0
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Markdown.hs
View file

@ -125,7 +125,7 @@ inlineText' disallow = choice [try $ strikethrough disallow, try $ bold disallow
plain_text :: Parser s m () -> Parser s m InlineText plain_text :: Parser s m () -> Parser s m InlineText
plain_text disallow = do plain_text disallow = do
first <- optional $ ((notFollowedBy disallow) *> anySingle) 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 pure $ Text $ T.pack $ case first of
Nothing -> [] Nothing -> []