alpmestan/taggy
1
1
Fork 0
mirror of https://github.com/alpmestan/taggy.git synced 2024-08-16 10:20:30 +03:00
Code Issues Projects Releases Wiki Activity

more forgiving auto-closing tag detection

Browse Source
This commit is contained in:
Alp Mestanogullari 2014-06-16 16:37:20 +02:00
parent 7bf1e35232
commit 22bec0911a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Text/Taggy/Parser.hs
View File

@ -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