diff options
Diffstat (limited to 'hadrian/src/Rules/Generate.hs')
| -rw-r--r-- | hadrian/src/Rules/Generate.hs | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/hadrian/src/Rules/Generate.hs b/hadrian/src/Rules/Generate.hs index 98ea2bd353..7a51814b07 100644 --- a/hadrian/src/Rules/Generate.hs +++ b/hadrian/src/Rules/Generate.hs @@ -474,17 +474,14 @@ generatePlatformHostHs = do return $ unlines [ "module GHC.Platform.Host where" , "" - , "import GHC.Platform" + , "import GHC.Platform.ArchOS" , "" - , "cHostPlatformArch :: Arch" - , "cHostPlatformArch = " ++ cHostPlatformArch + , "hostPlatformArch :: Arch" + , "hostPlatformArch = " ++ cHostPlatformArch , "" - , "cHostPlatformOS :: OS" - , "cHostPlatformOS = " ++ cHostPlatformOS + , "hostPlatformOS :: OS" + , "hostPlatformOS = " ++ cHostPlatformOS , "" - , "cHostPlatformMini :: PlatformMini" - , "cHostPlatformMini = PlatformMini" - , " { platformMini_arch = cHostPlatformArch" - , " , platformMini_os = cHostPlatformOS" - , " }" + , "hostPlatformArchOS :: ArchOS" + , "hostPlatformArchOS = ArchOS hostPlatformArch hostPlatformOS" ] |