module Comm.AddPortrait exposing (decode) -- Elm ------------------------------------------------------------------------- import Json.Decode -- BattleCharacters ------------------------------------------------------------ import Struct.Portrait import Struct.ServerReply -------------------------------------------------------------------------------- -- TYPES ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- internal_decoder : Struct.Portrait.Type -> Struct.ServerReply.Type internal_decoder pt = (Struct.ServerReply.AddPortrait pt) -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- decode : (Json.Decode.Decoder Struct.ServerReply.Type) decode = (Json.Decode.map (internal_decoder) (Struct.Portrait.decoder))