Commit d31d4958 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test standalone deriving for GADTs

parent f7765c4a
{-# LANGUAGE GADTs, StandaloneDeriving #-}
module T3012 where
data T a where
Foo :: T Int
Bar :: T Bool
deriving instance Show (T a)
...@@ -19,6 +19,7 @@ test('deriving-1935', normal, compile, ['']) ...@@ -19,6 +19,7 @@ test('deriving-1935', normal, compile, [''])
test('T2378', normal, compile, ['']) test('T2378', normal, compile, [''])
test('T2856', normal, compile, ['']) test('T2856', normal, compile, [''])
test('T3057', if_compiler_lt('ghc', '6.11', expect_fail), compile, ['']) test('T3057', if_compiler_lt('ghc', '6.11', expect_fail), compile, [''])
test('T3012', normal, compile, [''])
test('drv-functor1', test('drv-functor1',
if_compiler_lt('ghc', '6.11', expect_fail), if_compiler_lt('ghc', '6.11', expect_fail),
compile, compile,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment