| summaryrefslogtreecommitdiff | 
diff options
| author | nsensfel <SpamShield0@noot-noot.org> | 2020-01-15 17:22:01 +0100 | 
|---|---|---|
| committer | nsensfel <SpamShield0@noot-noot.org> | 2020-01-15 17:22:01 +0100 | 
| commit | 83543758b9682f0e476809f207957471fcbbff5b (patch) | |
| tree | 89b1f3a64810e47302b103acde5b608fd8d5327d /src/main-menu | |
| parent | dc7c1857845a5da7cd6cba178c16fa8ea8c68cec (diff) | |
...
Diffstat (limited to 'src/main-menu')
| -rw-r--r-- | src/main-menu/src/Comm/LoadPlayer.elm | 8 | ||||
| -rw-r--r-- | src/main-menu/src/Comm/Send.elm | 8 | 
2 files changed, 8 insertions, 8 deletions
| 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 | 


