module GHC.Platform.Host where import GHC.Platform cHostPlatformArch :: Arch cHostPlatformArch :: Arch cHostPlatformArch = ArchPPC_64 :: PPC_64ABI -> Arch ArchPPC_64 {ppc_64ABI :: PPC_64ABI ppc_64ABI = PPC_64ABI ELF_V2} cHostPlatformOS :: OS cHostPlatformOS :: OS cHostPlatformOS = OS OSLinux cHostPlatformMini :: PlatformMini cHostPlatformMini :: PlatformMini cHostPlatformMini = PlatformMini :: Arch -> OS -> PlatformMini PlatformMini { platformMini_arch :: Arch platformMini_arch = Arch cHostPlatformArch , platformMini_os :: OS platformMini_os = OS cHostPlatformOS }