Trying to fix a bug where a header with a newline isn't recognized as a header

This commit is contained in:
2025-05-04 01:34:24 -04:00
parent d771460bb1
commit 7fdc1bcbf1
3 changed files with 116 additions and 98 deletions

View File

@@ -4,5 +4,5 @@ import MdToHTML
main :: IO ()
main = do
let res = fst $ leftmostLongestParse parseDocument "# _Hello_\n\n # Hello"
let res = fst $ leftmostLongestParse parseDocument "# _Hello_\n"
putStrLn (show res)