Only get the first parse result, makes things easier to see

This commit is contained in:
2025-05-03 13:49:34 -04:00
parent 231673b6d6
commit 2b771256a1

View File

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