giving up and having an LLM do markdown parser next commit

app/Markdown.hs

@@ -72,11 +72,17 @@ htmlInline = do
   where
     htmlInlineRemainder = many $ whiteSpace *> attribute
     name = many $ choice [alphaNum, char '-', char ':']
+    value = do
+      char '"'
+      l <- letter
+      rem <- many $ choice [alphaNum, char '-', char ':']
+      char '"'
+      pure '"' : l : rem ++ "\""
     attribute = do
       attrName <- name
       char '='
       attrValue <- value
-        pure attrName ++ '=' : 
+      pure attrName ++ ('=' : attrValue)
 
 whiteSpace :: Parser Text
 whiteSpace = pack <$> many space