| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/main-menu')
| -rw-r--r-- | src/main-menu/elm.json | 6 | ||||
| -rw-r--r-- | src/main-menu/src/Comm/Send.elm | 17 |
2 files changed, 14 insertions, 9 deletions
diff --git a/src/main-menu/elm.json b/src/main-menu/elm.json index 20622be..929038d 100644 --- a/src/main-menu/elm.json +++ b/src/main-menu/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" } diff --git a/src/main-menu/src/Comm/Send.elm b/src/main-menu/src/Comm/Send.elm index 3641e46..531a848 100644 --- a/src/main-menu/src/Comm/Send.elm +++ b/src/main-menu/src/Comm/Send.elm @@ -54,13 +54,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)) + ) + } ) ) |