diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 6920485..57c58c3 100644
--- a/src/MdToHTML.hs
+++ b/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)