Commit 5bd297cb authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #7974

parent 436f8968
{-# LANGUAGE GADTs #-}
module T7974 where
data X a where
N :: (a ~ b) => X a
k :: X a -> X b
k N = N
......@@ -120,3 +120,4 @@ test('T7321',
extra_clean(['T7321a.hi', 'T7321a.o']),
run_command,
['$MAKE -s --no-print-directory T7321'])
test('T7974', normal, 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