Skip to content

Commit

Permalink
support <tag>..</> form for <tag>..</tag> in xml
Browse files Browse the repository at this point in the history
Summary: marcel is going to start doing this

Reviewed By: marcel

Test Plan: compiles

Revert Plan: ok
  • Loading branch information
Daniel Corson committed Oct 26, 2009
1 parent 68a9e7b commit ff580d4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Lang/Php/Ast/Expr.hs
Original file line number Diff line number Diff line change
Expand Up @@ -568,7 +568,7 @@ instance Parse Xml where
content <- (tokDivP >> tokGTP >> return Nothing) <|>
Just <$> (tokGTP >>
many (Right <$> try parse <|> Left <$> parse) <*
tokLTP <* tokDivP <* string tag <* tokGTP)
tokLTP <* tokDivP <* optional (string tag) <* tokGTP)
return $ Xml tag attrs content

instance Parse XmlLitOrExpr where
Expand Down

0 comments on commit ff580d4

Please sign in to comment.