| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/login')
| -rw-r--r-- | src/login/elm.json | 8 | ||||
| -rw-r--r-- | src/login/src/Comm/Send.elm | 17 |
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)) + ) + } ) ) |