lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T12791.hs
1 {-# LANGUAGE MultiParamTypeClasses, FlexibleContexts #-}
2 module Main ( main ) where
3
4 class Foldable f => C f a where
5 m :: f a -> a
6
7 instance C [] Int where
8 m = foldr (+) 0
9
10 {-# NOINLINE go #-}
11 go :: C [] b => b -> Int -> Int
12 go _ i = foldr (+) 0 [1..i]
13
14 main :: IO ()
15 main = print $ go (0 :: Int) 20000