From 2b771256a112a72efe12201f34490ea8177c9cbb Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Sat, 3 May 2025 13:49:34 -0400
Subject: [PATCH] Only get the first parse result, makes things easier to see

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 1b4c972..64cbe5f 100644
--- 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)