module BattleMap.Comm.SetMap exposing (decode) -- Elm ------------------------------------------------------------------------- import Json.Decode -- Battle Map ------------------------------------------------------------------ import BattleMap.Struct.Map -- Local Module ---------------------------------------------------------------- import Struct.ServerReply -------------------------------------------------------------------------------- -- TYPES ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- decode : (Json.Decode.Decoder Struct.ServerReply.Type) decode = (Json.Decode.map (\map -> (Struct.ServerReply.SetMap map)) (BattleMap.Struct.Map.decoder) )