diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 03accdd..1b2bbb0 100644
--- a/src/MdToHTML.hs
+++ b/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