Skip to content

Commit d13a6be

Browse files
committed
fix typing error for GHC 8.0
1 parent c410c52 commit d13a6be

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/Data/Comp/Derive/Utils.hs

+4-1
Original file line numberDiff line numberDiff line change
@@ -26,8 +26,11 @@ reportError :: String -> Q ()
2626
reportError = report True
2727
#endif
2828

29+
#if __GLASGOW_HASKELL__ < 800
2930
data DataInfo = DataInfo Cxt Name [TyVarBndr] [Con] [Name]
30-
31+
#else
32+
data DataInfo = DataInfo Cxt Name [TyVarBndr] [Con] Cxt
33+
#endif
3134

3235
{-|
3336
This is the @Q@-lifted version of 'abstractNewtype.

0 commit comments

Comments
 (0)