lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T9203.hs
1 module Main where
2
3 import Data.Typeable
4
5 f :: Typeable a => Int -> a -> TypeRep
6 f 0 a = typeOf a
7 f n a = f (n-1) [a]
8
9 main = print (f 50000 () == f 50001 ())