lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T14955.hs
1 module Main where
2
3 import T14955a
4
5 --test1 :: [Bool] -> Bool
6 --test1 = ors
7
8 --test2 :: [Bool] -> Bool
9 --test2 = dors boolDict
10
11 --test2a :: [Bool] -> Bool
12 --test2a xs = dors boolDict xs
13
14 test3 :: [Bool] -> Bool
15 test3 xs = pors xs
16
17 --test4 :: [Bool] -> Bool
18 --test4 xs = porsProxy xs
19
20 main = print (test3 (replicate 1000000 False))