1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/deriving/should_fail/drvfail006.hs b/testsuite/tests/deriving/should_fail/drvfail006.hs
new file mode 100644
index 0000000000..0d8d1a95d9
--- /dev/null
+++ b/testsuite/tests/deriving/should_fail/drvfail006.hs
@@ -0,0 +1,11 @@
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+
+-- Testing the newtype-deriving stuff
+
+module ShouldFail where
+
+import Control.Monad.State
+
+newtype T a = T (StateT Int IO a) deriving( MonadState )
+	-- Here MonadState takes two type params,
+	-- but exactly one is needed.
+\ No newline at end of file