@@ -5,15 +5,6 @@ module Data.Word.Util where
5import Data.Bits
5import Data.Bits
6import Data.Word
6import Data.Word
8−w8to32 :: Word8 -> Word8 -> Word8 -> Word8 -> Word32
9−w8to32 w0s w1s w2s w3s =
10− (w0 `shiftL` 24) .|. (w1 `shiftL` 16) .|. (w2 `shiftL` 8) .|. w3
12− w0 = fromIntegral w0s
13− w1 = fromIntegral w1s
14− w2 = fromIntegral w2s
15− w3 = fromIntegral w3s
17w8to16 :: Word8 -> Word8 -> Word16
8w8to16 :: Word8 -> Word8 -> Word16
18w8to16 w0s w1s =
9w8to16 w0s w1s =
19 (w0 `shiftL` 8) .|. w1
10 (w0 `shiftL` 8) .|. w1