module Octane.Type.CacheProperty (CacheProperty(..)) where
import Data.Function ((&))
import qualified Control.DeepSeq as DeepSeq
import qualified Data.Binary as Binary
import qualified GHC.Generics as Generics
import qualified Octane.Type.Word32 as Word32
data CacheProperty = CacheProperty
{ objectId :: Word32.Word32
, streamId :: Word32.Word32
} deriving (Eq, Generics.Generic, Show)
instance Binary.Binary CacheProperty where
get = CacheProperty
<$> Binary.get
<*> Binary.get
put cacheProperty = do
cacheProperty & objectId & Binary.put
cacheProperty & streamId & Binary.put
instance DeepSeq.NFData CacheProperty where