module Rattletrap.Encode.LoadoutsAttribute
  ( putLoadoutsAttribute
  )
where

import Rattletrap.Encode.LoadoutAttribute
import Rattletrap.Type.LoadoutsAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putLoadoutsAttribute :: LoadoutsAttribute -> BinaryBits.BitPut ()
putLoadoutsAttribute :: LoadoutsAttribute -> BitPut ()
putLoadoutsAttribute LoadoutsAttribute
loadoutsAttribute = do
  LoadoutAttribute -> BitPut ()
putLoadoutAttribute (LoadoutsAttribute -> LoadoutAttribute
loadoutsAttributeBlue LoadoutsAttribute
loadoutsAttribute)
  LoadoutAttribute -> BitPut ()
putLoadoutAttribute (LoadoutsAttribute -> LoadoutAttribute
loadoutsAttributeOrange LoadoutsAttribute
loadoutsAttribute)