summaryrefslogtreecommitdiff
path: root/src/login
diff options
context:
space:
mode:
Diffstat (limited to 'src/login')
-rw-r--r--src/login/elm.json8
-rw-r--r--src/login/src/Comm/Send.elm17
2 files changed, 15 insertions, 10 deletions
diff --git a/src/login/elm.json b/src/login/elm.json
index 00c115b..929038d 100644
--- a/src/login/elm.json
+++ b/src/login/elm.json
@@ -9,13 +9,15 @@
"direct": {
"NoRedInk/elm-json-decode-pipeline": "1.0.0",
"elm/browser": "1.0.1",
- "elm/core": "1.0.0",
+ "elm/core": "1.0.2",
"elm/html": "1.0.0",
- "elm/http": "1.0.0",
+ "elm/http": "2.0.0",
"elm/json": "1.1.2",
"elm/url": "1.0.0"
},
"indirect": {
+ "elm/bytes": "1.0.7",
+ "elm/file": "1.0.1",
"elm/time": "1.0.0",
"elm/virtual-dom": "1.0.2"
}
@@ -24,4 +26,4 @@
"direct": {},
"indirect": {}
}
-} \ No newline at end of file
+}
diff --git a/src/login/src/Comm/Send.elm b/src/login/src/Comm/Send.elm
index e488d77..91b4177 100644
--- a/src/login/src/Comm/Send.elm
+++ b/src/login/src/Comm/Send.elm
@@ -53,13 +53,16 @@ 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))
- )
+ (Http.post
+ {
+ url = recipient,
+ body = (Http.jsonBody serial),
+ expect =
+ (Http.expectJson
+ Struct.Event.ServerReplied
+ (Json.Decode.list (decode))
+ )
+ }
)
)