module Rattletrap.Encode.TitleAttribute ( putTitleAttribute ) where import Rattletrap.Encode.Word32le import Rattletrap.Type.TitleAttribute import qualified Data.Binary.Bits.Put as BinaryBits putTitleAttribute :: TitleAttribute -> BinaryBits.BitPut () putTitleAttribute :: TitleAttribute -> BitPut () putTitleAttribute TitleAttribute titleAttribute = do Bool -> BitPut () BinaryBits.putBool (TitleAttribute -> Bool titleAttributeUnknown1 TitleAttribute titleAttribute) Bool -> BitPut () BinaryBits.putBool (TitleAttribute -> Bool titleAttributeUnknown2 TitleAttribute titleAttribute) Word32le -> BitPut () putWord32Bits (TitleAttribute -> Word32le titleAttributeUnknown3 TitleAttribute titleAttribute) Word32le -> BitPut () putWord32Bits (TitleAttribute -> Word32le titleAttributeUnknown4 TitleAttribute titleAttribute) Word32le -> BitPut () putWord32Bits (TitleAttribute -> Word32le titleAttributeUnknown5 TitleAttribute titleAttribute) Word32le -> BitPut () putWord32Bits (TitleAttribute -> Word32le titleAttributeUnknown6 TitleAttribute titleAttribute) Word32le -> BitPut () putWord32Bits (TitleAttribute -> Word32le titleAttributeUnknown7 TitleAttribute titleAttribute) Bool -> BitPut () BinaryBits.putBool (TitleAttribute -> Bool titleAttributeUnknown8 TitleAttribute titleAttribute)