arbitrary =
        Data.Time.UTCTime
        <$> arbitrary
        <*> (fromRational . toRational <$> choose (0::Double,0))
arbitrary =
        Data.Time.UTCTime
        <$> arbitrary
        <*> (fromRational . toRational <$> choose (0::Double,0))
arbitrary =
        Data.Time.UTCTime
        <$> arbitrary
        <*> (fromRational . toRational <$> choose (0::Double,0))