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/login/elm.json | 8 +++++--- src/login/src/Comm/Send.elm | 17 ++++++++++------- 2 files changed, 15 insertions(+), 10 deletions(-) (limited to 'src/login') 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)) + ) + } ) ) -- cgit v1.2.3-70-g09d2