uuid-1.3.14: src/Data/Word/Util.hs

-- | Internal utilites
module Data.Word.Util where

import Data.Bits
import Data.Word

w16to32 :: Word16 -> Word16 -> Word32
w16to32 w0s w1s =
    (w0 `shiftL` 16) .|. w1
  where
    w0 = fromIntegral w0s
    w1 = fromIntegral w1s

w32to64 :: Word32 -> Word32 -> Word64
w32to64 w0s w1s =
    (w0 `shiftL` 32) .|. w1
  where
    w0 = fromIntegral w0s
    w1 = fromIntegral w1s