Commit cec7d580 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Fix the pure unifier

This patch fixes Trac #13705, by fixing a long-standing outright bug
in the pure unifier.  I'm surprised this hasn't caused more trouble
before now!
parent fea9a757
This diff is collapsed.
{-# LANGUAGE TypeFamilyDependencies #-}
module T13705 where
data D x
type family F t = s | s -> t
type instance F (D t) = D (F t)
f :: F s -> ()
f _ = ()
g :: D (F t) -> ()
g x = f x
......@@ -264,3 +264,4 @@ test('T13244', normal, compile, [''])
test('T13398a', normal, compile, [''])
test('T13398b', normal, compile, [''])
test('T13662', normal, compile, [''])
test('T13705', 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