1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
module Struct.Player exposing
(
Type,
get_id,
get_username,
get_maps,
get_campaigns,
get_invasions,
get_events,
get_roster_id,
get_inventory_id,
decoder,
none
)
-- Elm -------------------------------------------------------------------------
import Json.Decode
import Json.Decode.Pipeline
-- Main Menu -------------------------------------------------------------------
import Struct.BattleSummary
import Struct.MapSummary
--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
type alias Type =
{
id : String,
name : String,
maps : (List Struct.MapSummary.Type),
campaigns : (List Struct.BattleSummary.Type),
invasions : (List Struct.BattleSummary.Type),
events : (List Struct.BattleSummary.Type),
roster_id : String,
inventory_id : String
}
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
get_id : Type -> String
get_id t = t.id
get_username : Type -> String
get_username t = t.name
get_maps : Type -> (List Struct.MapSummary.Type)
get_maps t = t.maps
get_campaigns : Type -> (List Struct.BattleSummary.Type)
get_campaigns t = t.campaigns
get_invasions : Type -> (List Struct.BattleSummary.Type)
get_invasions t = t.invasions
get_events : Type -> (List Struct.BattleSummary.Type)
get_events t = t.events
get_roster_id : Type -> String
get_roster_id t = t.roster_id
get_inventory_id : Type -> String
get_inventory_id t = t.inventory_id
decoder : (Json.Decode.Decoder Type)
decoder =
(Json.Decode.Pipeline.decode
Type
|> (Json.Decode.Pipeline.required "id" Json.Decode.string)
|> (Json.Decode.Pipeline.required "nme" Json.Decode.string)
|> (Json.Decode.Pipeline.required
"maps"
(Json.Decode.list Struct.MapSummary.decoder)
)
|> (Json.Decode.Pipeline.required
"cmps"
(Json.Decode.list Struct.BattleSummary.decoder)
)
|> (Json.Decode.Pipeline.required
"invs"
(Json.Decode.list Struct.BattleSummary.decoder)
)
|> (Json.Decode.Pipeline.required
"evts"
(Json.Decode.list Struct.BattleSummary.decoder)
)
|> (Json.Decode.Pipeline.required "rtid" Json.Decode.string)
|> (Json.Decode.Pipeline.required "ivid" Json.Decode.string)
)
none : Type
none =
{
id = "",
name = "Unknown",
maps = [],
campaigns = [],
invasions = [],
events = [],
roster_id = "",
inventory_id = ""
}
|
