Disallow empty autolinks

mmark-md · Jan 27, 2018 · 692720c · 692720c
1 parent 41441f1
commit 692720c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Text/MMark/Parser.hs b/Text/MMark/Parser.hs
@@ -663,6 +663,7 @@ pImage = do
 
 pAutolink :: IParser Inline
 pAutolink = between (char '<') (char '>') $ do
+  notFollowedBy (char '>')
   uri' <- URI.parser
   let (txt, uri) =
         case isEmailUri uri' of

diff --git a/tests/Text/MMarkSpec.hs b/tests/Text/MMarkSpec.hs
@@ -1677,7 +1677,7 @@ spec = parallel $ do
           "<p>&lt;foo+@bar.example.com&gt;</p>\n"
       it "CM578" $
         "<>" ==->
-          "<p><a href></a></p>\n"
+          "<p>&lt;&gt;</p>\n"
       it "CM579" $
         "< http://foo.bar >" ==->
           "<p>&lt; http://foo.bar &gt;</p>\n"