
19 Jul
2012
19 Jul
'12
9:26 a.m.
Am 19.07.2012 15:14, schrieb Christian Maeder:
Am 19.07.2012 14:53, schrieb C K Kashyap:
innerXML = do x <- (try xml <|> gettext) return x
Omit "try" (and return). xml always starts with "<" whereas gettext never does.
I was wrong, you do not want to swallow an endTag as openTag. openTag should start with: try $ char '<' >> notFollowedBy (char '/') and endTag should start with: try $ string "" C.
C.