@@ -1,10 +1,3 @@
1−#if __GLASGOW_HASKELL__ >= 806
2−{-# OPTIONS_GHC -Wno-star-is-type #-}
4−#if __GLASGOW_HASKELL__ >= 800
5−{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
10This module is a generic implementation of the 'arbitrary' method. Example
3This module is a generic implementation of the 'arbitrary' method. Example
@@ -153,14 +146,13 @@ module Test.QuickCheck.Arbitrary.Generic
155import Control.Applicative
148import Control.Applicative
149+import Data.Coerce (coerce)
156import Data.Proxy
150import Data.Proxy
157import Data.Type.Bool
151import Data.Type.Bool
158import GHC.Generics as G
152import GHC.Generics as G
159import GHC.TypeLits
153import GHC.TypeLits
161import Test.QuickCheck as QC
154import Test.QuickCheck as QC
162#if MIN_VERSION_QuickCheck(2, 14, 0)
155#if MIN_VERSION_QuickCheck(2, 14, 0)
163−import Data.Coerce (coerce)
164import Test.QuickCheck.Arbitrary (GSubterms, RecursivelyShrink)
156import Test.QuickCheck.Arbitrary (GSubterms, RecursivelyShrink)