module GHC.Platform.Host where

import GHC.Platform

cHostPlatformArch :: Arch
cHostPlatformArch :: Arch
cHostPlatformArch = Arch
ArchX86_64

cHostPlatformOS   :: OS
cHostPlatformOS :: OS
cHostPlatformOS   = OS
OSDarwin

cHostPlatformMini :: PlatformMini
cHostPlatformMini :: PlatformMini
cHostPlatformMini = PlatformMini :: Arch -> OS -> PlatformMini
PlatformMini
  { platformMini_arch :: Arch
platformMini_arch = Arch
cHostPlatformArch
  , platformMini_os :: OS
platformMini_os = OS
cHostPlatformOS
  }