updateCRC :: Packet -> Packet
updateCRC pkt@(Packet v q _ c b) = Packet v q crc c b
  where crc = computeCRC pkt
updateCRC :: Packet -> Packet
updateCRC pkt@(Packet v q _ c b) = Packet v q crc c b
  where crc = computeCRC pkt
updateCRC pkt@(Packet v q _ c b) = Packet v q crc c b
  where crc = computeCRC pkt