packRequest :: Request -> Packet
packRequest (Request b) = updateCRC $ Packet version Req 0 Nothing b
  where version = 2
packRequest :: Request -> Packet
packRequest (Request b) = updateCRC $ Packet version Req 0 Nothing b
  where version = 2
packRequest (Request b) = updateCRC $ Packet version Req 0 Nothing b
  where version = 2