module Rattletrap.Encode.Message
  ( putMessage
  )
where

import Rattletrap.Encode.Str
import Rattletrap.Encode.Word32le
import Rattletrap.Type.Message

import qualified Data.Binary as Binary

putMessage :: Message -> Binary.Put
putMessage :: Message -> Put
putMessage Message
message = do
  Word32le -> Put
putWord32 (Message -> Word32le
messageFrame Message
message)
  Str -> Put
putText (Message -> Str
messageName Message
message)
  Str -> Put
putText (Message -> Str
messageValue Message
message)