{-# 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