текущий год и количество дней в месяце

У меня два вопроса:

Как я могу получить текущий год (не дату) в haskell?

Как я могу получить количество дней в одном месяце или году? Например, в 04.2011 30 дней.