Commit 50b41cfe authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5737

parent 3970d9a5
{-# LANGUAGE TemplateHaskell #-}
module T5737 where
import Language.Haskell.TH
makeAlpha n = [d| data Alpha = Alpha $(conT n) deriving (Show, Read) |]
...@@ -236,3 +236,4 @@ test('T5976', normal, compile_fail, ['-v0']) ...@@ -236,3 +236,4 @@ test('T5976', normal, compile_fail, ['-v0'])
test('T5795', normal, compile_fail, ['-v0']) test('T5795', normal, compile_fail, ['-v0'])
test('T6005', normal, compile, ['-v0']) test('T6005', normal, compile, ['-v0'])
test('T6005a', normal, compile, ['-v0']) test('T6005a', normal, compile, ['-v0'])
test('T5737', 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