From 83543758b9682f0e476809f207957471fcbbff5b Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Wed, 15 Jan 2020 17:22:01 +0100
Subject: ...

---
 src/main-menu/src/Comm/LoadPlayer.elm | 8 ++++----
 src/main-menu/src/Comm/Send.elm       | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/main-menu')

diff --git a/src/main-menu/src/Comm/LoadPlayer.elm b/src/main-menu/src/Comm/LoadPlayer.elm
index f93ed25..ce17b8c 100644
--- a/src/main-menu/src/Comm/LoadPlayer.elm
+++ b/src/main-menu/src/Comm/LoadPlayer.elm
@@ -18,8 +18,8 @@ import Struct.Model
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
-try_encoding : Struct.Model.Type -> (Maybe Json.Encode.Value)
-try_encoding model =
+maybe_encode : Struct.Model.Type -> (Maybe Json.Encode.Value)
+maybe_encode model =
    let
       player_id = (Json.Encode.string model.player_id)
    in
@@ -38,8 +38,8 @@ try_encoding model =
 --------------------------------------------------------------------------------
 try : Struct.Model.Type -> (Maybe (Cmd Struct.Event.Type))
 try model =
-   (Comm.Send.try_sending
+   (Comm.Send.maybe_send
       model
       Constants.IO.player_loading_handler
-      try_encoding
+      maybe_encod
    )
diff --git a/src/main-menu/src/Comm/Send.elm b/src/main-menu/src/Comm/Send.elm
index 531a848..d4e36c9 100644
--- a/src/main-menu/src/Comm/Send.elm
+++ b/src/main-menu/src/Comm/Send.elm
@@ -1,4 +1,4 @@
-module Comm.Send exposing (try_sending)
+module Comm.Send exposing (maybe_send)
 
 -- Elm -------------------------------------------------------------------------
 import Http
@@ -44,14 +44,14 @@ decode =
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
-try_sending : (
+maybe_send : (
       Struct.Model.Type ->
       String ->
       (Struct.Model.Type -> (Maybe Json.Encode.Value)) ->
       (Maybe (Cmd Struct.Event.Type))
    )
-try_sending model recipient try_encoding_fun =
-   case (try_encoding_fun model) of
+maybe_send model recipient maybe_encod_fun =
+   case (maybe_encod_fun model) of
       (Just serial) ->
          (Just
             (Http.post
-- 
cgit v1.2.3-70-g09d2