{-# LANGUAGE CPP #-}------------------------------------------------------------------------------- |-- Module : GHC.ByteOrder-- Copyright : (c) The University of Glasgow, 1994-2000-- License : see libraries/base/LICENSE---- Maintainer : cvs-ghc@haskell.org-- Stability : internal-- Portability : non-portable (GHC extensions)---- Target byte ordering.---- @since 4.11.0.0-----------------------------------------------------------------------------moduleGHC.ByteOrderwhere-- | Byte ordering.dataByteOrder =BigEndian -- ^ most-significant-byte occurs in lowest address.|LittleEndian -- ^ least-significant-byte occurs in lowest address.deriving(Eq-- ^ @since 4.11.0.0,Ord-- ^ @since 4.11.0.0,Bounded -- ^ @since 4.11.0.0,Enum -- ^ @since 4.11.0.0,Read -- ^ @since 4.11.0.0,Show -- ^ @since 4.11.0.0)-- | The byte ordering of the target machine.targetByteOrder::ByteOrder #if defined(WORDS_BIGENDIAN)
targetByteOrder=BigEndian#else
targetByteOrder =LittleEndian #endif