may need to accept the inevitable

TODO.md

@@ -1,3 +1,4 @@
+- [ ] Figure out what the fuck is going on with the soft engineering retrospective post or accept it's broken and rewrite the markdown parser later
 - [ ] add rst or org support and convert markdown handling to custom parser instead of pandoc
 - [ ] process source code blocks with tree sitter https://hackage.haskell.org/package/tree-sitter
     - Alternatively consider skylighting https://hackage.haskell.org/package/skylighting

src/Markdown.hs

@@ -163,7 +163,7 @@ unorderedListBlock = do
 unorderedListItem :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m ListItem
 unorderedListItem = do
   oneOf "*-+"
-  char ' ' <|> char '\t'
+  optional (char ' ' <|> char '\t')
   content <- many $ notFollowedBy lineEnding' *> inlineElement
   lineEnding'
   -- continuations <- many listContinuation