{-# OPTIONS_GHC -fno-warn-orphans #-} module Data.GenValidity.Time.Format where import Data.GenValidity import Data.GenValidity.Time.LocalTime () import Data.Time.Format import Data.Validity.Time.Format () instance GenValid TimeLocale where genValid :: Gen TimeLocale genValid = [(String, String)] -> [(String, String)] -> (String, String) -> String -> String -> String -> String -> [TimeZone] -> TimeLocale TimeLocale forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> forall a. GenValid a => Gen a genValid shrinkValid :: TimeLocale -> [TimeLocale] shrinkValid TimeLocale _ = []