Allow for multiple blank lines after header

src/MdToHTML.hs

@@ -159,7 +159,8 @@ parseHeader = do
     pfail
   skipSpaces
   text <- munch1 (/= '\n')
-  Text.ParserCombinators.ReadP.optional (char '\n')
+  --  Text.ParserCombinators.ReadP.optional (char '\n')
+  skipSpaces
   let parsedText = fst $ leftmostLongestParse parseLine text
   return (Header (length headers) parsedText)