{-# OPTIONS_GHC -fno-warn-orphans #-} module Binrep.Util.ByteOrder ( ByteOrder(..), ByteOrdered(..) , type LE, type BE, type Endian ) where import Raehik.Compat.Data.Primitive.Types.Endian ( ByteOrdered(..) ) import GHC.ByteOrder ( ByteOrder(..) ) import Strongweak import Data.Kind ( Type ) deriving via (a :: Type) instance Weaken a => Weaken (ByteOrdered end a) deriving via (a :: Type) instance Strengthen a => Strengthen (ByteOrdered end a) -- shorter names I originally used type LE = 'LittleEndian type BE = 'BigEndian type Endian = ByteOrdered