rattletrap-0.1.0: library/Rattletrap/Mark.hs

module Rattletrap.Mark where

import Rattletrap.Text
import Rattletrap.Word32

import qualified Data.Binary as Binary

data Mark = Mark
  { markValue :: Text
  , markFrame :: Word32
  } deriving (Eq, Ord, Show)

getMark :: Binary.Get Mark
getMark = do
  value <- getText
  frame <- getWord32
  pure Mark {markValue = value, markFrame = frame}

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