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

Test Trac #6088

parent 16005083
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE EmptyDataDecls #-}
module T6088 where
class C a
newtype A n = A Int
type family Pos n
data True
instance (Pos n ~ True) => C (A n)
newtype B n = B (A n) deriving (C)
-- This should work, giving
-- instance (Pos n ~ True) => C (B n)
...@@ -188,3 +188,5 @@ test('T5955', ...@@ -188,3 +188,5 @@ test('T5955',
extra_clean(['T5955.o', 'T5955.hi', 'T5955a.o', 'T5955a.hi']), extra_clean(['T5955.o', 'T5955.hi', 'T5955a.o', 'T5955a.hi']),
run_command, run_command,
['$MAKE -s --no-print-directory T5955']) ['$MAKE -s --no-print-directory T5955'])
test('T6088', normal, compile, [''])
Supports Markdown
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