dayStub :: Integer -> UTCTime 
dayStub n = (UTCTime (ModifiedJulianDay n) (fromIntegral n))
dayStub :: Integer -> UTCTime
dayStub n = (UTCTime (ModifiedJulianDay n) (fromIntegral n))
dayStub n = (UTCTime (ModifiedJulianDay n) (fromIntegral n))