Work around #14918

Re #32
ekmett · Mar 15, 2018 · 5fba638 · 5fba638
1 parent 958919c
commit 5fba638
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/tests/GenericsTypes.hs b/tests/GenericsTypes.hs
@@ -29,7 +29,7 @@ import GHC.Exts
 
 import Test.QuickCheck (Arbitrary(..), oneof)
 
-#if __GLASGOW_HASKELL__ < 702
+#if __GLASGOW_HASKELL__ == 700 || __GLASGOW_HASKELL__ == 804
 import Text.Read.Deriving (deriveRead)
 #endif
 
@@ -105,11 +105,14 @@ instance Arbitrary a => Arbitrary (Record a) where
                     , (:%:)  <$> arbitrary <*> arbitrary
                     ]
 
-#if __GLASGOW_HASKELL__ >= 702
-deriving instance Read a => Read (T# a)
-#else
+#if __GLASGOW_HASKELL__ == 700
 -- Workaround for GHC Trac #5041
 $(deriveRead ''T#)
+#elif __GLASGOW_HASKELL__ == 804
+-- Workaround for GHC Trac #14918
+$(deriveRead ''T#)
+#else
+deriving instance Read a => Read (T# a)
 #endif
 
 #if __GLASGOW_HASKELL__ >= 706