Fixed a bug like this:
approximateDaysPerMonth :: Integral a => a -approximateDaysPerMonth = 30 +approximateDaysPerMonth = 31