lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T5536.hs
1
2 main :: IO ()
3 main = do writeFile "T5536.data" (replicate 10000000 'a')
4 readFile "T5536.data" >>= putStr
5