Greatly shortened parseQuotedLine, because I can just use greedyParse

instead of using manyTill

src/MdToHTML.hs

@@ -218,26 +218,13 @@ parseQuotedLine = do
   return restOfLine
 
 -- Parse many 'quoted lines' until I see a non-quoted line.
--- There HAS to be a better way of doing this, but I'm not sure what it is.
--- I rewrote it because I wanted it to consume all input, rather than being non-deterministic
--- and giving all intermediate parse results.
 parseQuotedLines :: ReadP [String]
 parseQuotedLines =
-  manyTill
+  greedyParse1 $ do
-    ( do
+    look >>= \line ->
-        look >>= \line ->
+      case line of
-          case line of
+        ('>' : _) -> parseQuotedLine
-            ('>' : _) -> parseQuotedLine
+        _ -> pfail
-            _ -> pfail
-    )
-    ( ( do
-          look >>= \line ->
-            case line of
-              ('>' : _) -> pfail
-              _ -> return ()
-      )
-        <* eof
-    )
 
 -- Parse a blockquote, which is a greater-than sign followed by a paragraph.
 parseBlockquote :: ReadP MdToken