Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cede5cb4d54ae4496f41394e0c484c669720765a >--------------------------------------------------------------- commit cede5cb4d54ae4496f41394e0c484c669720765a Author: Simon Peyton Jones <[email protected]> Date: Wed Sep 14 15:30:34 2011 +0100 Test Trac #5478 >--------------------------------------------------------------- tests/deriving/should_fail/T5478.hs | 6 ++++++ tests/deriving/should_fail/T5478.stderr | 5 +++++ tests/deriving/should_fail/all.T | 1 + 3 files changed, 12 insertions(+), 0 deletions(-) diff --git a/tests/deriving/should_fail/T5478.hs b/tests/deriving/should_fail/T5478.hs new file mode 100644 index 0000000..e7941b1 --- /dev/null +++ b/tests/deriving/should_fail/T5478.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE MagicHash #-} +module T5478 where + +import GHC.Exts + +data Foo = Foo0 ByteArray# deriving Show diff --git a/tests/deriving/should_fail/T5478.stderr b/tests/deriving/should_fail/T5478.stderr new file mode 100644 index 0000000..f6f00d5 --- /dev/null +++ b/tests/deriving/should_fail/T5478.stderr @@ -0,0 +1,5 @@ + +T5478.hs:6:38: + Can't make a derived instance of `Show Foo': + Don't know how to derive `Show' for type `ByteArray#' + In the data type declaration for `Foo' diff --git a/tests/deriving/should_fail/all.T b/tests/deriving/should_fail/all.T index 9c362cc..ff65037 100644 --- a/tests/deriving/should_fail/all.T +++ b/tests/deriving/should_fail/all.T @@ -33,4 +33,5 @@ test('T3833', normal, compile_fail, ['']) test('T3834', normal, compile_fail, ['']) test('T4528', normal, compile_fail, ['']) test('T5287', normal, compile_fail, ['']) +test('T5478', normal, compile_fail, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
