genvalidity-time-1.0.0.0: src/Data/GenValidity/Time/Format.hs

{-# 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 =
    TimeLocale <$> genValid <*> genValid <*> genValid
      <*> genValid
      <*> genValid
      <*> genValid
      <*> genValid
      <*> genValid
  shrinkValid _ = []