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