path: root/testsuite/tests/rts/T9579/StackOverflow.hs

main :: IO ()
main = main' ()
  where
    main' _ = main >> main' ()