Я написал быстрый синтаксический анализатор attoparsec, чтобы просмотреть файл aspx и удалить все атрибуты стиля, и этоработает нормально, за исключением одного куска, где я могуне могу понять, как добиться успеха при сопоставлении> не потребляя это.

Вот'Что у меня есть:

anyTill = manyTill anyChar
anyBetween start end = start *> anyTill end

styleWithQuotes = anyBetween (stringCI "style=\"") (stringCI "\"")
styleWithoutQuotes = anyBetween (stringCI "style=") (stringCI " "  ">")
everythingButStyles = manyTill anyChar (styleWithQuotes  styleWithoutQuotes)  many1 anyChar

Я понимаю, это'частично из-за того, как яя использую много до всего во всем, но этоs как я активно выбрасываю все вещи стилей на землю, но вstyleWithoutQuotes Мне нужно, чтобы это соответствовало ">" как конец, но не потреблять его, в парсек я бы просто сделалlookAhead ">" Но я могу'сделать это в attoparsec.