improve type infer
	modified:   src/TypeInfer.hs
	modified:   test/Test.hw