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