module Rattletrap.Encode.FlaggedIntAttribute
  ( putFlaggedIntAttribute
  )
where

import Rattletrap.Encode.Int32le
import Rattletrap.Type.FlaggedIntAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putFlaggedIntAttribute :: FlaggedIntAttribute -> BinaryBits.BitPut ()
putFlaggedIntAttribute :: FlaggedIntAttribute -> BitPut ()
putFlaggedIntAttribute FlaggedIntAttribute
flaggedIntAttribute = do
  Bool -> BitPut ()
BinaryBits.putBool (FlaggedIntAttribute -> Bool
flaggedIntAttributeFlag FlaggedIntAttribute
flaggedIntAttribute)
  Int32le -> BitPut ()
putInt32Bits (FlaggedIntAttribute -> Int32le
flaggedIntAttributeInt FlaggedIntAttribute
flaggedIntAttribute)