module Rattletrap.Encode.BooleanAttribute ( putBooleanAttribute ) where import Rattletrap.Type.BooleanAttribute import qualified Data.Binary.Bits.Put as BinaryBits putBooleanAttribute :: BooleanAttribute -> BinaryBits.BitPut () putBooleanAttribute :: BooleanAttribute -> BitPut () putBooleanAttribute BooleanAttribute booleanAttribute = Bool -> BitPut () BinaryBits.putBool (BooleanAttribute -> Bool booleanAttributeValue BooleanAttribute booleanAttribute)