diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 9e0d5e6..c2ff303 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -137,12 +137,13 @@ parseSingleNewline = do
 -- Parse a regular string as a Unit.
 parseString :: ReadP MdToken
 parseString = do
-  firstChar <- get -- Must parse at least one character here
+  firstChar <- satisfy (/= '\n') -- Must parse at least one non-newline character here
   text <- munch (\x -> not (elem x "#*_[\n "))
   return (Unit (firstChar : text))
 
 lineParsers :: [ReadP MdToken]
 lineParsers = [parseLinebreak, parseSingleNewline, parseBold, parseItalic, parseString] -- A 'line' doesn't include a 'header'
+--lineParsers = [parseSingleNewline, parseString]
 
 -- List of all parsers
 allParsers :: [ReadP MdToken]