fix typing error for GHC 8.0

pa-ba · May 16, 2016 · d13a6be · d13a6be
1 parent c410c52
commit d13a6be
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Data/Comp/Derive/Utils.hs b/src/Data/Comp/Derive/Utils.hs
@@ -26,8 +26,11 @@ reportError :: String -> Q ()
 reportError = report True
 #endif
 
+#if __GLASGOW_HASKELL__ < 800
 data DataInfo = DataInfo Cxt Name [TyVarBndr] [Con] [Name]
-
+#else
+data DataInfo = DataInfo Cxt Name [TyVarBndr] [Con] Cxt
+#endif
 
 {-|
   This is the @Q@-lifted version of 'abstractNewtype.