module Data.Endian.Unsafe (
BigEndian(),
LittleEndian(),
unsafeAssertBigEndian,
unsafeAssertLittleEndian,
unsafeUnwrapBigEndian,
unsafeUnwrapLittleEndian,
swapEndian
) where
import Data.Endian.Internal
import Data.Endian.Wrap
unsafeAssertBigEndian ∷ EndianSensitive α ⇒ α → BigEndian α
unsafeAssertBigEndian = BE
unsafeAssertLittleEndian ∷ EndianSensitive α ⇒ α → LittleEndian α
unsafeAssertLittleEndian = LE
unsafeUnwrapBigEndian ∷ EndianSensitive α ⇒ BigEndian α → α
unsafeUnwrapBigEndian (BE a) = a
unsafeUnwrapLittleEndian ∷ EndianSensitive α ⇒ LittleEndian α → α
unsafeUnwrapLittleEndian (LE a) = a