Permissively parse malformed closing tags, specifically those missing ">".

src/Text/Taggy/Parser.hs

@@ -117,7 +117,7 @@ tagclose = do
   char '/'
   skipSpace
   i <- ident
-  char '>'
+  possibly '>'
   return $ TagClose i
 
 tagtext :: Bool -> Parser Tag

tests/Text/Taggy/ParserSpec.hs

@@ -96,6 +96,14 @@ spec = do
                       , TagClose "body"
                       , TagClose "html"
                       ]
+    it "doesn't choke on malformed closing tags" $ 
+      "<strong>North Korea</strong." ~> htmlWith False
+        `shouldParse` [ TagOpen "strong" [] False
+                      , TagText "North Korea"
+                      , TagClose "strong"
+                      , TagText "."
+                      ]
+
 
 (~>) :: Text -> Parser a -> Either String a
 (~>) = (Test.Hspec.Attoparsec.Source.~>)