diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 87646ba..47760b8 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -145,7 +145,7 @@ parseTillEol = manyTill anySingle (void (char '\n') <|> eof)
 -- Takes a list of parsers. Returns a parser that will try them in
 -- order, moving to the next one only if the current one fails.
 fallthroughParser :: [Parser a] -> Parser a
-fallthroughParser [x] = x
+fallthroughParser [x] = try x
 fallthroughParser (x : xs) = try x <|> fallthroughParser xs
 
 escapeChar :: Char -> String