From 5f9384a442531b7133cce4edc07edffb0729c3d7 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 22 Dec 2018 10:47:01 +0100 Subject: Converts map-editor, JSON broken, dep. updates... --- src/main-menu/elm.json | 6 ++++-- src/main-menu/src/Comm/Send.elm | 17 ++++++++++------- 2 files changed, 14 insertions(+), 9 deletions(-) (limited to 'src/main-menu') 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)) + ) + } ) ) -- cgit v1.2.3-70-g09d2