id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
5962	Data.Typeable: types which should compare equal don't	NickSmallbone	simonpj	"Here are two ways to construct a TypeRep for the type () -> ():

{{{
Prelude> import Data.Typeable
Prelude Data.Typeable> let unitToUnit = typeOf (\() -> ())
Prelude Data.Typeable> let unitToUnit' = mkFunTy (typeOf ()) (typeOf ())
}}}

It seems to work:

{{{
Prelude Data.Typeable> unitToUnit
() -> ()
Prelude Data.Typeable> unitToUnit'
() -> ()
}}}

But the two TypeReps are not equal:

{{{
Prelude Data.Typeable> unitToUnit == unitToUnit'
False
}}}
"	bug	closed	normal	7.4.3	libraries/base	7.4.1	fixed			Unknown/Multiple	Unknown/Multiple	Incorrect result at runtime	Unknown	base/tests/T5962