rattletrap-4.0.0: library/Rattletrap/Encode/Replication.hs

module Rattletrap.Encode.Replication
  ( putReplications
  , putReplication
  ) where

import Rattletrap.Encode.CompressedWord
import Rattletrap.Encode.ReplicationValue
import Rattletrap.Type.Replication

import qualified Data.Binary.Bits.Put as BinaryBits

putReplications :: [Replication] -> BinaryBits.BitPut ()
putReplications replications = do
  mapM_ putReplication replications
  BinaryBits.putBool False

putReplication :: Replication -> BinaryBits.BitPut ()
putReplication replication = do
  BinaryBits.putBool True
  putCompressedWord (replicationActorId replication)
  putReplicationValue (replicationValue replication)