Rate.hs: failIfInvalid{Month,Day} are back