Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / T5458.hs
1 module Foo where
2
3 type T a = Int
4
5 f :: T a -> Bool -> [Int]
6 f x b = case b of
7 True -> f x b
8 False -> x : f x (x > 19)