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