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
108
109
110
111
112
113
114
115
116
117
118
119
|
module Update.HandleServerReply exposing (apply_to)
-- Elm -------------------------------------------------------------------------
import Array
import Http
-- Extension -------------------------------------------------------------------
import Comm.GetBattles
import Struct.BattleSummary
import Struct.Error
import Struct.Event
import Struct.Model
import Struct.Player
import Struct.ServerReply
--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
handle_set_battles : (
(
(List Struct.BattleSummary.Type),
(List Struct.BattleSummary.Type),
(List Struct.BattleSummary.Type)
) ->
(Struct.Model.Type, (List (Cmd Struct.Event.Type))) ->
(Struct.Model.Type, (List (Cmd Struct.Event.Type)))
)
handle_set_battles battles current_state =
let
(model, cmds) = current_state
(campaigns, invasions, events) = battles
in
case (Array.get model.query_index model.players) of
Nothing -> current_state -- TODO: error
(Just player) ->
let
updated_player =
(Struct.Player.set_battles
campaigns
invasions
events
player
)
updated_model =
{model |
players =
(Array.set
model.query_index
updated_player
model.players
),
query_index = (model.query_index + 1),
notify =
(
model.notify
|| (Struct.Player.has_active_battles updated_player)
)
}
in
case (Array.get updated_model.query_index model.players) of
Nothing -> ({updated_model| query_index = -1}, cmds)
(Just next_player) ->
case (Comm.GetBattles.try updated_model next_player) of
Nothing -> ({updated_model| query_index = -1}, cmds)
(Just query) -> (updated_model, (query :: cmds))
apply_command : (
Struct.ServerReply.Type ->
(Struct.Model.Type, (List (Cmd Struct.Event.Type))) ->
(Struct.Model.Type, (List (Cmd Struct.Event.Type)))
)
apply_command command current_state =
case command of
Struct.ServerReply.Okay -> current_state
(Struct.ServerReply.SetID str) -> current_state -- TODO
(Struct.ServerReply.SetUsername str) -> current_state -- TODO
(Struct.ServerReply.SetBattles battles) ->
(handle_set_battles battles current_state)
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
apply_to : (
Struct.Model.Type ->
(Result Http.Error (List Struct.ServerReply.Type)) ->
(Struct.Model.Type, (Cmd Struct.Event.Type))
)
apply_to model query_result =
case query_result of
(Result.Err error) ->
(
(Struct.Model.invalidate
(Struct.Error.new Struct.Error.Networking (toString error))
model
),
Cmd.none
)
(Result.Ok commands) ->
let
(new_model, elm_commands) =
(List.foldl (apply_command) (model, [Cmd.none]) commands)
in
(
new_model,
(
case elm_commands of
[] -> Cmd.none
[cmd] -> cmd
_ -> (Cmd.batch elm_commands)
)
)
|
