Commit c47aa373 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

TypeFamilies: exercise deferring on tyvars in TcUnify.subFunTys

parent b93c1206
{-# LANGUAGE TypeFamilies #-}
module ShouldCompile where
plus :: (a ~ (Int -> Int)) => Int -> a
plus x y = x + y
......@@ -22,6 +22,7 @@ test('Simple18', normal, compile, [''])
test('Simple19', normal, compile, [''])
test('Simple20', normal, compile, [''])
test('Simple22', normal, compile, [''])
test('Simple23', normal, compile, [''])
test('ind1', normal, compile, [''])
test('ind2', expect_fail_ways_if_compiler_lt('ghc','6.9',['profc','profasm']),
......
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