Commit 644e5d9f authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add test for Trac #4356

parent eb699fb4
{-# LANGUAGE TypeFamilies #-}
module T4356 where
type family T t :: * -> * -> *
type instance T Bool = (->)
f :: T Bool Bool Bool
f = not
......@@ -155,3 +155,4 @@ test('T3851', normal, compile, [''])
test('T4178', normal, compile, [''])
test('T3023', normal, compile, [''])
test('T4358', normal, compile, [''])
test('T4356', 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