packetMessage :: Packet -> ByteString
packetMessage = B.takeWhile (/= 0) . packetByteString
packetMessage :: Packet -> ByteString
packetMessage = B.takeWhile (/= 0) . packetByteString
packetMessage = B.takeWhile (/= 0) . packetByteString