splitMSB :: Word8 -> (Bool, Word8)
splitMSB byte = (msb, bits) where
  msb = (byte .&. 0x80) /= 0
  bits = byte .&. 0x7F

-- |Convert a ByteString.Lazy to a strict ByteString.
splitMSB :: Word8 -> (Bool, Word8)
splitMSB byte = (msb, bits) where
  msb = (byte .&. 0x80) /= 0
  bits = byte .&. 0x7F

-- |Convert a ByteString.Lazy to a strict ByteString.
splitMSB byte = (msb, bits) where
  msb = (byte .&. 0x80) /= 0
  bits = byte .&. 0x7F

-- |Convert a ByteString.Lazy to a strict ByteString.