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)