module Rattletrap.Encode.CompressedWordVector ( putCompressedWordVector ) where import Rattletrap.Encode.CompressedWord import Rattletrap.Type.CompressedWordVector import qualified Data.Binary.Bits.Put as BinaryBits putCompressedWordVector :: CompressedWordVector -> BinaryBits.BitPut () putCompressedWordVector :: CompressedWordVector -> BitPut () putCompressedWordVector CompressedWordVector compressedWordVector = do CompressedWord -> BitPut () putCompressedWord (CompressedWordVector -> CompressedWord compressedWordVectorX CompressedWordVector compressedWordVector) CompressedWord -> BitPut () putCompressedWord (CompressedWordVector -> CompressedWord compressedWordVectorY CompressedWordVector compressedWordVector) CompressedWord -> BitPut () putCompressedWord (CompressedWordVector -> CompressedWord compressedWordVectorZ CompressedWordVector compressedWordVector)