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)