mirror of
https://github.com/alpmestan/taggy.git
synced 2024-09-11 15:05:40 +03:00
more forgiving auto-closing tag detection
This commit is contained in:
parent
7bf1e35232
commit
22bec0911a
@ -123,9 +123,15 @@ attributes cventities = postProcess `fmap` go emptyL
|
||||
|
||||
tagends = skipSpace >> parseEnd
|
||||
|
||||
parseEnd = ("/>" *> return True)
|
||||
parseEnd = autoClosing
|
||||
<|> (">" *> return False)
|
||||
|
||||
autoClosing = do
|
||||
char '/'
|
||||
skipSpace
|
||||
char '>'
|
||||
return True
|
||||
|
||||
postProcess (l, b) = (toList l, b)
|
||||
|
||||
attribute :: Bool -> Parser Attribute
|
||||
|
Loading…
Reference in New Issue
Block a user