Used 'in-order' parsing for headers, instead of leftmostLongestParse

src/MdToHTML.hs

@@ -133,11 +133,9 @@ parseHeader = do
     (length headers > 6)
     pfail
   skipSpaces
-  text <- munch1 (/= '\n')
-  --  Text.ParserCombinators.ReadP.optional (char '\n')
-  skipSpaces
-  let parsedText = fst $ leftmostLongestParse parseLine text
-  return (Header (length headers) parsedText)
+  parsedText <- manyTill parseLineToken (void (char '\n') <++ eof)
+  greedyParse (char '\n')
+  return (Header (length headers) (Line parsedText))
 
 -- Parse bold text
 parseBold :: ReadP MdToken