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

2025-05-03 13:49:34 -04:00
parent 231673b6d6
commit 2b771256a1
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -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)