blob: dd9dc28ef9a6d283f6a1aeb1cb83b988ab28219f (
plain)
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
|
module Comm.Send exposing (try_sending)
-- Elm -------------------------------------------------------------------------
import Http
import Json.Decode
import Json.Encode
-- Extension -------------------------------------------------------------------
import Comm.Okay
import Comm.SetBattles
import Struct.Event
import Struct.ServerReply
import Struct.Model
--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
internal_decoder : String -> (Json.Decode.Decoder Struct.ServerReply.Type)
internal_decoder reply_type =
case reply_type of
"okay" -> (Comm.Okay.decode)
"set_battles" -> (Comm.SetBattles.decode)
other ->
(Json.Decode.fail
(
"Unknown server command \""
++ other
++ "\""
)
)
decode : (Json.Decode.Decoder Struct.ServerReply.Type)
decode =
(Json.Decode.field "msg" Json.Decode.string)
|> (Json.Decode.andThen (internal_decoder))
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
-- TODO: turn this into a multi-server version.
try_sending : (
Struct.Model.Type ->
String ->
(Struct.Model.Type -> (Maybe Json.Encode.Value)) ->
(Maybe (Cmd Struct.Event.Type))
)
try_sending model recipient try_encoding_fun =
case (try_encoding_fun model) of
(Just serial) ->
(Just
(Http.send
Struct.Event.ServerReplied
(Http.post
recipient
(Http.jsonBody serial)
(Json.Decode.list (decode))
)
)
)
Nothing -> Nothing
|
