summaryrefslogtreecommitdiff
path: root/src/login
diff options
context:
space:
mode:
Diffstat (limited to 'src/login')
-rw-r--r--src/login/src/Comm/Send.elm8
-rw-r--r--src/login/src/Comm/SendRecovery.elm8
-rw-r--r--src/login/src/Comm/SendSignIn.elm8
-rw-r--r--src/login/src/Comm/SendSignUp.elm8
-rw-r--r--src/login/src/ElmModule/View.elm4
-rw-r--r--src/login/src/Struct/UI.elm6
-rw-r--r--src/login/src/Update/SelectTab.elm2
7 files changed, 22 insertions, 22 deletions
diff --git a/src/login/src/Comm/Send.elm b/src/login/src/Comm/Send.elm
index 91b4177..22a4480 100644
--- a/src/login/src/Comm/Send.elm
+++ b/src/login/src/Comm/Send.elm
@@ -1,4 +1,4 @@
-module Comm.Send exposing (try_sending)
+module Comm.Send exposing (maybe_send)
-- Elm -------------------------------------------------------------------------
import Http
@@ -43,14 +43,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
diff --git a/src/login/src/Comm/SendRecovery.elm b/src/login/src/Comm/SendRecovery.elm
index e9fd3a9..31b89f3 100644
--- a/src/login/src/Comm/SendRecovery.elm
+++ b/src/login/src/Comm/SendRecovery.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 =
(Just
(Json.Encode.object
[
@@ -33,8 +33,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.login_recovery_handler
- try_encoding
+ maybe_encod
)
diff --git a/src/login/src/Comm/SendSignIn.elm b/src/login/src/Comm/SendSignIn.elm
index 723b8d3..4923751 100644
--- a/src/login/src/Comm/SendSignIn.elm
+++ b/src/login/src/Comm/SendSignIn.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 =
(Just
(Json.Encode.object
[
@@ -34,8 +34,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.login_sign_in_handler
- try_encoding
+ maybe_encod
)
diff --git a/src/login/src/Comm/SendSignUp.elm b/src/login/src/Comm/SendSignUp.elm
index 546416c..cefa0fe 100644
--- a/src/login/src/Comm/SendSignUp.elm
+++ b/src/login/src/Comm/SendSignUp.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 =
(Just
(Json.Encode.object
[
@@ -35,8 +35,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.login_sign_up_handler
- try_encoding
+ maybe_encod
)
diff --git a/src/login/src/ElmModule/View.elm b/src/login/src/ElmModule/View.elm
index f8c0d8c..f6c5c93 100644
--- a/src/login/src/ElmModule/View.elm
+++ b/src/login/src/ElmModule/View.elm
@@ -38,10 +38,10 @@ view model =
]
[
(View.MainMenu.get_html
- (Struct.UI.try_getting_displayed_tab model.ui)
+ (Struct.UI.maybe_get_displayed_tab model.ui)
),
(
- case (Struct.UI.try_getting_displayed_tab model.ui) of
+ case (Struct.UI.maybe_get_displayed_tab model.ui) of
(Just Struct.UI.SignInTab) -> (View.SignIn.get_html model)
(Just Struct.UI.SignUpTab) -> (View.SignUp.get_html model)
(Just Struct.UI.RecoveryTab) ->
diff --git a/src/login/src/Struct/UI.elm b/src/login/src/Struct/UI.elm
index be7eab3..4cb898d 100644
--- a/src/login/src/Struct/UI.elm
+++ b/src/login/src/Struct/UI.elm
@@ -4,7 +4,7 @@ module Struct.UI exposing
Tab(..),
default,
-- Tab
- try_getting_displayed_tab,
+ maybe_get_displayed_tab,
set_displayed_tab,
reset_displayed_tab,
to_string,
@@ -43,8 +43,8 @@ default =
}
-- Tab -------------------------------------------------------------------------
-try_getting_displayed_tab : Type -> (Maybe Tab)
-try_getting_displayed_tab ui = ui.displayed_tab
+maybe_get_displayed_tab : Type -> (Maybe Tab)
+maybe_get_displayed_tab ui = ui.displayed_tab
set_displayed_tab : Tab -> Type -> Type
set_displayed_tab tab ui = {ui | displayed_tab = (Just tab)}
diff --git a/src/login/src/Update/SelectTab.elm b/src/login/src/Update/SelectTab.elm
index d15a463..71e59d3 100644
--- a/src/login/src/Update/SelectTab.elm
+++ b/src/login/src/Update/SelectTab.elm
@@ -19,7 +19,7 @@ apply_to : (
(Struct.Model.Type, (Cmd Struct.Event.Type))
)
apply_to model tab =
- if ((Struct.UI.try_getting_displayed_tab model.ui) == (Just tab))
+ if ((Struct.UI.maybe_get_displayed_tab model.ui) == (Just tab))
then
(
{model | ui = (Struct.UI.reset_displayed_tab model.ui)},