Commit e54809c4 authored by U-EUROPE\dimitris's avatar U-EUROPE\dimitris
Browse files

Adding test for #5120

parent dad1bf2d
{-# LANGUAGE ImplicitParams #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Test where
class C t where
type TF t
ttt :: TF t -> t
b :: (C t, ?x :: TF t) => t
b = ttt ?x
...@@ -342,3 +342,4 @@ test('T4912', extra_clean(['T4912a.hi', 'T4912a.o']), ...@@ -342,3 +342,4 @@ test('T4912', extra_clean(['T4912a.hi', 'T4912a.o']),
test('T4952', normal, compile, ['']) test('T4952', normal, compile, [''])
test('T4969', normal, compile, ['']) test('T4969', normal, compile, [''])
test('T5120', normal, compile, [''])
\ No newline at end of file
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