{-# OPTIONS_GHC -fno-warn-orphans #-} module Cursor.FuzzyTimeOfDay.Gen where import Cursor.FuzzyTimeOfDay import Cursor.Text.Gen () import Data.GenValidity import Data.GenValidity.Time () instance GenValid FuzzyTimeOfDayCursor where genValid :: Gen FuzzyTimeOfDayCursor genValid = Gen FuzzyTimeOfDayCursor forall a. (Generic a, GGenValid (Rep a)) => Gen a genValidStructurallyWithoutExtraChecking shrinkValid :: FuzzyTimeOfDayCursor -> [FuzzyTimeOfDayCursor] shrinkValid = FuzzyTimeOfDayCursor -> [FuzzyTimeOfDayCursor] forall a. (Generic a, GValidRecursivelyShrink (Rep a), GValidSubterms (Rep a) a) => a -> [a] shrinkValidStructurallyWithoutExtraFiltering