octane-0.1.0: library/Octane/Types/Mark.hs

module Octane.Types.Mark (Mark(..)) where

import Octane.Core
import Octane.Types.Int32LE
import Octane.Types.PCString

data Mark = NewMark
    { markLabel :: PCString
    , markFrame :: Int32LE
    } deriving (Show)

instance Binary Mark where
    get = do
        label <- get
        frame <- get
        return NewMark
            { markLabel = label
            , markFrame = frame
            }

    put mark = do
        mark & markLabel & put
        mark & markFrame & put