
19 Jul
2012
19 Jul
'12
9:45 a.m.
Am 19.07.2012 15:26, schrieb Christian Maeder:
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 ""
Strictly, the try in endTag is not necessary (only in openTag) C.