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)