{-# LANGUAGE DeriveGeneric #-}
module Netcode.IO.Packet where
import Data.Word (Word8, Word64)
import Foreign.ForeignPtr (ForeignPtr)
import GHC.Generics (Generic)
import Bindings.Netcode.IO
data Packet = Packet {
Packet -> Word64
packetSequenceNumber :: Word64,
Packet -> Int
packetSize :: Int,
Packet -> ForeignPtr Word8
packetDataPtr :: ForeignPtr Word8
} deriving (Int -> Packet -> ShowS
[Packet] -> ShowS
Packet -> String
(Int -> Packet -> ShowS)
-> (Packet -> String) -> ([Packet] -> ShowS) -> Show Packet
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Packet] -> ShowS
$cshowList :: [Packet] -> ShowS
show :: Packet -> String
$cshow :: Packet -> String
showsPrec :: Int -> Packet -> ShowS
$cshowsPrec :: Int -> Packet -> ShowS
Show, (forall x. Packet -> Rep Packet x)
-> (forall x. Rep Packet x -> Packet) -> Generic Packet
forall x. Rep Packet x -> Packet
forall x. Packet -> Rep Packet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Packet x -> Packet
$cfrom :: forall x. Packet -> Rep Packet x
Generic)
maximumPacketSize :: Num a => a
maximumPacketSize :: a
maximumPacketSize = a
forall a. Num a => a
c'NETCODE_MAX_PACKET_SIZE