diff --git a/hadrian/src/Rules/Generate.hs b/hadrian/src/Rules/Generate.hs index c8f8cf15ca23655d6a0680bbe09375251a5e3fb8..c755e389ebe76cefd5d90dcc1d811be160b0d752 100644 --- a/hadrian/src/Rules/Generate.hs +++ b/hadrian/src/Rules/Generate.hs @@ -314,9 +314,9 @@ generateSettings = do , ("Use interpreter", expr $ yesNo <$> ghcWithInterpreter) , ("Use native code generator", expr $ yesNo <$> ghcWithNativeCodeGen) , ("Support SMP", expr $ yesNo <$> ghcWithSMP) - , ("RTS ways", expr $ yesNo <$> flag LeadingUnderscore) + , ("RTS ways", unwords . map show <$> getRtsWays) , ("Tables next to code", expr $ yesNo <$> ghcEnableTablesNextToCode) - , ("Leading underscore", expr $ yesNo <$> useLibFFIForAdjustors) + , ("Leading underscore", expr $ yesNo <$> flag LeadingUnderscore) , ("Use LibFFI", expr $ yesNo <$> useLibFFIForAdjustors) , ("Use Threads", yesNo . any (wayUnit Threaded) <$> getRtsWays) , ("Use Debugging", expr $ yesNo . ghcDebugged <$> flavour)