module Data.GenValidity.Time.Format where
import Data.GenValidity
import Data.GenValidity.Time.LocalTime ()
import Data.Time.Format
import Data.Validity.Time.Format ()
#if MIN_VERSION_time(1,5,0)
instance GenUnchecked TimeLocale where
genUnchecked =
TimeLocale <$> genUnchecked <*> genUnchecked <*> genUnchecked <*>
genUnchecked <*>
genUnchecked <*>
genUnchecked <*>
genUnchecked <*>
genUnchecked
instance GenValid TimeLocale where
genValid =
TimeLocale <$> genValid <*> genValid <*> genValid <*>
genValid <*>
genValid <*>
genValid <*>
genValid <*>
genValid
#endif