{-# 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)
type LE = 'LittleEndian
type BE = 'BigEndian
type Endian = ByteOrdered