Implement deriving strategies
[ghc.git] / testsuite / tests / th / T10697_sourceUtil.hs
index 048a422..7ef60b7 100644 (file)
@@ -10,7 +10,7 @@ makeSimpleDatatype :: Name
                    -> Q Dec
 makeSimpleDatatype tyName conName srcUpk srcStr =
   dataD (cxt []) tyName [] Nothing [normalC conName
-    [bangType (bang srcUpk srcStr) (conT ''Int)]] (cxt [])
+    [bangType (bang srcUpk srcStr) (conT ''Int)]] []
 
 checkBang :: Name
           -> SourceUnpackednessQ