another import bug

[Ross Paterson]

This succeeds, but shouldn't:

	module A(T) where
	data T = Foo

	module B where
	import A(T(..))
	f = Foo