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