Converts map-editor, JSON broken, dep. updates...

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))
+                     )
+               }
             )
          )