Gen.hs

module Cursor.Simple.List.NonEmpty.Gen
    ( nonEmptyElemOf
    , nonEmptyWithIndex0
    , nonEmptyWith
    ) where

import Test.QuickCheck

import qualified Cursor.List.NonEmpty.Gen as NEC
import Cursor.Simple.List.NonEmpty

nonEmptyElemOf :: NonEmptyCursor a -> Gen a
nonEmptyElemOf = NEC.nonEmptyElemOf

nonEmptyWithIndex0 :: Gen a -> Gen (NonEmptyCursor a)
nonEmptyWithIndex0 = NEC.nonEmptyWithIndex0

nonEmptyWith :: a -> Gen a -> Gen (NonEmptyCursor a)
nonEmptyWith = NEC.nonEmptyWith