module Comm.SetPlayer exposing (decode) -- Elm ------------------------------------------------------------------------- import Json.Decode -- Map ------------------------------------------------------------------------- import Struct.Player import Struct.ServerReply -------------------------------------------------------------------------------- -- TYPES ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- internal_decoder : Struct.Player.Type -> Struct.ServerReply.Type internal_decoder player = (Struct.ServerReply.SetPlayer player) -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- decode : (Json.Decode.Decoder Struct.ServerReply.Type) decode = (Json.Decode.map (internal_decoder) (Struct.Player.decoder))