-- | Missing @byteSwap@ functions for unsigned integers.
--
-- Don't know why this one is missing.

module Raehik.Compat.Data.Word.ByteSwap where

import GHC.Exts ( byteSwap# )
import GHC.Word ( Word(W#) )

byteSwap :: Word -> Word
byteSwap :: Word -> Word
byteSwap (W# Word#
i#) = Word# -> Word
W# (Word# -> Word#
byteSwap# Word#
i#)
{-# INLINE byteSwap #-}