[project @ 2000-08-29 16:56:26 by simonpj]

Fix a bug reported by Jose Emilio Labra Gayo

	newtype Foo a => T = MkT (out :: a)

The selector 'out' was being given an incorrect RHS.
(Core Lint spotted it.)