{-# OPTIONS_GHC -fno-warn-orphans #-}

module Cursor.FuzzyLocalTime.Gen where

import Cursor.FuzzyLocalTime
import Cursor.Text.Gen ()
import Data.FuzzyTime.Types.Gen ()
import Data.GenValidity
import Data.GenValidity.Time ()

instance GenValid FuzzyLocalTimeCursor where
  genValid :: Gen FuzzyLocalTimeCursor
genValid = Gen FuzzyLocalTimeCursor
forall a. (Generic a, GGenValid (Rep a)) => Gen a
genValidStructurallyWithoutExtraChecking
  shrinkValid :: FuzzyLocalTimeCursor -> [FuzzyLocalTimeCursor]
shrinkValid = FuzzyLocalTimeCursor -> [FuzzyLocalTimeCursor]
forall a.
(Generic a, GValidRecursivelyShrink (Rep a),
 GValidSubterms (Rep a) a) =>
a -> [a]
shrinkValidStructurallyWithoutExtraFiltering