![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
haskell-ное - про общий ход мыслей
Sep. 13th, 2007 04:34 pmПишу на HAppS тестовое приложение. Завел вот такой тип:
data Register = RegisterNew | Register User Password Email
Потом понял, что мне надо, чтобы при вызове toHTMLForm( RegisterNew ) все равно строилась форма с полями User, Password и Email. Недолго думая завел метод normalize, который для Register выглядел так
normalize RegisterNew = Register (User "") (Password "") (Email "")
normalize a = a
А сегодня прочитал, что HAppS уже использует готовый класс Normalize, который делает ровно то же самое (плюс еще обеспечивает рекурсивный обход). Порадовался :-)
data Register = RegisterNew | Register User Password Email
Потом понял, что мне надо, чтобы при вызове toHTMLForm( RegisterNew ) все равно строилась форма с полями User, Password и Email. Недолго думая завел метод normalize, который для Register выглядел так
normalize RegisterNew = Register (User "") (Password "") (Email "")
normalize a = a
А сегодня прочитал, что HAppS уже использует готовый класс Normalize, который делает ровно то же самое (плюс еще обеспечивает рекурсивный обход). Порадовался :-)
