module Rattletrap.Encode.Mark
  ( putMark
  )
where

import Rattletrap.Encode.Str
import Rattletrap.Encode.Word32le
import Rattletrap.Type.Mark

import qualified Data.Binary as Binary

putMark :: Mark -> Binary.Put
putMark :: Mark -> Put
putMark Mark
mark = do
  Str -> Put
putText (Mark -> Str
markValue Mark
mark)
  Word32le -> Put
putWord32 (Mark -> Word32le
markFrame Mark
mark)