lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T5835.hs
1 {-# LANGUAGE GADTs #-}
2 module Main where
3
4 data T t a where
5 T :: (Foldable t, Eq a) => t a -> T t a
6
7 {-# NOINLINE go #-}
8 go :: T [] a -> Int -> Int
9 go (T _) i = foldr (+) 0 [1..i]
10
11 main = print (go (T [1::Int]) 20000)