unhexByte :: Char -> Char -> Word8
unhexByte hi lo =
  shift (unhexNibble hi) 4 .|. unhexNibble lo
unhexByte :: Char -> Char -> Word8
unhexByte hi lo =
  shift (unhexNibble hi) 4 .|. unhexNibble lo
unhexByte hi lo =
  shift (unhexNibble hi) 4 .|. unhexNibble lo