Typo
[packages/base.git] / tests / T5962.hs
1 module Main where
2
3 import Data.Typeable
4
5 unitToUnit_a = typeOf (\() -> ())
6 unitToUnit_b = mkFunTy (typeOf ()) (typeOf ())
7
8 main = print (unitToUnit_a == unitToUnit_b)