testsuite/tests/rts/stack004.hs


1
2
3
4
5
6
7
8
9
10

module Main where

import Control.Monad
import GHC.RTS.Flags

-- Ensure that +RTS -K0 is parsed
main :: IO ()
main = do
    flags <- getGCFlags
    unless (maxStkSize flags == 0) $ putStrLn "uh oh"