diff options
Diffstat (limited to 'utils/deriveConstants')
| -rw-r--r-- | utils/deriveConstants/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs index 2c7a8379b9..a812ac42c8 100644 --- a/utils/deriveConstants/Main.hs +++ b/utils/deriveConstants/Main.hs @@ -918,13 +918,13 @@ writeHaskellWrappers fn ws = writeFile fn xs doWhat (GetFieldType {}) = [] doWhat (GetClosureSize {}) = [] doWhat (GetWord name _) = [haskellise name ++ " :: DynFlags -> Int", - haskellise name ++ " dflags = pc_" ++ name ++ " (sPlatformConstants (settings dflags))"] + haskellise name ++ " dflags = pc_" ++ name ++ " (platformConstants dflags)"] doWhat (GetInt name _) = [haskellise name ++ " :: DynFlags -> Int", - haskellise name ++ " dflags = pc_" ++ name ++ " (sPlatformConstants (settings dflags))"] + haskellise name ++ " dflags = pc_" ++ name ++ " (platformConstants dflags)"] doWhat (GetNatural name _) = [haskellise name ++ " :: DynFlags -> Integer", - haskellise name ++ " dflags = pc_" ++ name ++ " (sPlatformConstants (settings dflags))"] + haskellise name ++ " dflags = pc_" ++ name ++ " (platformConstants dflags)"] doWhat (GetBool name _) = [haskellise name ++ " :: DynFlags -> Bool", - haskellise name ++ " dflags = pc_" ++ name ++ " (sPlatformConstants (settings dflags))"] + haskellise name ++ " dflags = pc_" ++ name ++ " (platformConstants dflags)"] doWhat (StructFieldMacro {}) = [] doWhat (ClosureFieldMacro {}) = [] doWhat (ClosurePayloadMacro {}) = [] |