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

zero forwards progress

Browse source
This commit is contained in:
Pagwin 2025-11-16 11:32:37 -05:00
parent 843fb5dc40
commit 53290132e7
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app/Markdown.hs
View file

@ -258,8 +258,8 @@ paragraphBlock = do
-- Inline Elements -- Inline Elements
inlineElement :: Parser InlineText inlineElement :: Parser InlineText
inlineElement = inlineElement =
logP $ log_ "inline element call"
choice *> choice
[ try strong <?> "Inline Strong Text", [ try strong <?> "Inline Strong Text",
try emphasis <?> "Inline Italic Text", try emphasis <?> "Inline Italic Text",
try crossedText <?> "Inline Crossed Text", try crossedText <?> "Inline Crossed Text",
@ -328,7 +328,9 @@ inlineElementNo c =
plainTextNo :: [Char] -> Parser InlineText plainTextNo :: [Char] -> Parser InlineText
plainTextNo disallow = do plainTextNo disallow = do
log_ "a"
firstChar <- noneOf disallow <?> "Plain Text Initial Disallow" firstChar <- noneOf disallow <?> "Plain Text Initial Disallow"
log_ "b"
remChars <- manyTill (plainTextCharNo disallow) lineEnding <?> "Remaining Characters" remChars <- manyTill (plainTextCharNo disallow) lineEnding <?> "Remaining Characters"
pure $ Text $ T.map wspHandler $ T.pack $ firstChar : remChars pure $ Text $ T.map wspHandler $ T.pack $ firstChar : remChars
where where