Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bug in fallthrough parser

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-07-30 15:29:25 -04:00
parent 9d3d656065
commit 8152b89a23
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/MdToHTML.hs
View File

@@ -145,7 +145,7 @@ parseTillEol = manyTill anySingle (void (char '\n') <|> eof)
-- Takes a list of parsers. Returns a parser that will try them in -- Takes a list of parsers. Returns a parser that will try them in
-- order, moving to the next one only if the current one fails. -- order, moving to the next one only if the current one fails.
fallthroughParser :: [Parser a] -> Parser a fallthroughParser :: [Parser a] -> Parser a
fallthroughParser [x] = x fallthroughParser [x] = try x
fallthroughParser (x : xs) = try x <|> fallthroughParser xs fallthroughParser (x : xs) = try x <|> fallthroughParser xs
escapeChar :: Char -> String escapeChar :: Char -> String