path: root/testsuite/tests/rts/flags/T12870g.hs

module T12870g where

import GHC.RTS.Flags (getGCFlags, generations)

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