path: root/testsuite/tests/simplCore/should_compile/T4930.hs

module T4930 where

foo :: Int -> Int
foo n = (if n < 5 then foo n else n+2)
        `seq` n+5