Implement deriving strategies
[ghc.git] / testsuite / tests / th / TH_dataD1.hs
index 1a51ac4..9d0c95b 100644 (file)
@@ -6,7 +6,7 @@ import Language.Haskell.TH
 ds :: Q [Dec]
 ds = [d|
           $(do { d <- dataD (cxt []) (mkName "D") [] Nothing
-                             [normalC (mkName "K") []] (cxt [])
+                             [normalC (mkName "K") []] []
                ; return [d]})
        |]