From 53290132e7557acb6d5531d49a8229873c180e2d Mon Sep 17 00:00:00 2001
From: Pagwin <pgp2024@pagwin.xyz>
Date: Sun, 16 Nov 2025 11:32:37 -0500
Subject: [PATCH] zero forwards progress

---
 app/Markdown.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/app/Markdown.hs b/app/Markdown.hs
index f3d453e..5445f40 100644
--- a/app/Markdown.hs
+++ b/app/Markdown.hs
@@ -258,8 +258,8 @@ paragraphBlock = do
 -- Inline Elements
 inlineElement :: Parser InlineText
 inlineElement =
-  logP $
-    choice
+  log_ "inline element call"
+    *> choice
       [ try strong <?> "Inline Strong Text",
         try emphasis <?> "Inline Italic Text",
         try crossedText <?> "Inline Crossed Text",
@@ -328,7 +328,9 @@ inlineElementNo c =
 
 plainTextNo :: [Char] -> Parser InlineText
 plainTextNo disallow = do
+  log_ "a"
   firstChar <- noneOf disallow <?> "Plain Text Initial Disallow"
+  log_ "b"
   remChars <- manyTill (plainTextCharNo disallow) lineEnding <?> "Remaining Characters"
   pure $ Text $ T.map wspHandler $ T.pack $ firstChar : remChars
   where