TimeTypes.hs