Commit 1565cf7a authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #6005 (second bug)

parent 68c082b1
{-# LANGUAGE TemplateHaskell #-}
module T6005a where
-- The point here is that we don't need to generate the
-- derived code inside the bracket; doing so is troublesome
-- and it should never be type incorrect, so it's also a
-- waste of effort.
$( [d|
data Nat = Zero | Succ Nat deriving( Show )
|] )
foo :: String
foo = show (Succ Zero)
......@@ -235,3 +235,4 @@ test('T5555', extra_clean(['T5555_Lib.hi', 'T5555_Lib.o']),
test('T5976', normal, compile_fail, ['-v0'])
test('T5795', normal, compile_fail, ['-v0'])
test('T6005', normal, compile, ['-v0'])
test('T6005a', normal, compile, ['-v0'])
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