testsuite/tests/rts/flags/T12870g.hs


1
2
3
4
5
6
7
8
9

--We check the generation count as a way to verify an RTS argument
--was actually parsed and accepted by the RTS.

import GHC.RTS.Flags (getGCFlags, generations)

main :: IO ()
main = do
    gcFlags <- getGCFlags
    putStr . show $ generations gcFlags