summaryrefslogtreecommitdiff
path: root/src/login
diff options
context:
space:
mode:
Diffstat (limited to 'src/login')
-rw-r--r--src/login/src/Comm/SendRecovery.elm2
-rw-r--r--src/login/src/Comm/SendSignIn.elm2
-rw-r--r--src/login/src/Comm/SendSignUp.elm2
-rw-r--r--src/login/src/ElmModule/Init.elm2
-rw-r--r--src/login/src/Struct/Model.elm2
-rw-r--r--src/login/src/Update/HandleConnected.elm2
6 files changed, 6 insertions, 6 deletions
diff --git a/src/login/src/Comm/SendRecovery.elm b/src/login/src/Comm/SendRecovery.elm
index 31b89f3..18a64f4 100644
--- a/src/login/src/Comm/SendRecovery.elm
+++ b/src/login/src/Comm/SendRecovery.elm
@@ -36,5 +36,5 @@ try model =
(Comm.Send.maybe_send
model
Constants.IO.login_recovery_handler
- maybe_encod
+ maybe_encode
)
diff --git a/src/login/src/Comm/SendSignIn.elm b/src/login/src/Comm/SendSignIn.elm
index 4923751..0eb9c46 100644
--- a/src/login/src/Comm/SendSignIn.elm
+++ b/src/login/src/Comm/SendSignIn.elm
@@ -37,5 +37,5 @@ try model =
(Comm.Send.maybe_send
model
Constants.IO.login_sign_in_handler
- maybe_encod
+ maybe_encode
)
diff --git a/src/login/src/Comm/SendSignUp.elm b/src/login/src/Comm/SendSignUp.elm
index cefa0fe..6fc4ba4 100644
--- a/src/login/src/Comm/SendSignUp.elm
+++ b/src/login/src/Comm/SendSignUp.elm
@@ -38,5 +38,5 @@ try model =
(Comm.Send.maybe_send
model
Constants.IO.login_sign_up_handler
- maybe_encod
+ maybe_encode
)
diff --git a/src/login/src/ElmModule/Init.elm b/src/login/src/ElmModule/Init.elm
index e3ca64d..9574712 100644
--- a/src/login/src/ElmModule/Init.elm
+++ b/src/login/src/ElmModule/Init.elm
@@ -22,7 +22,7 @@ init flags =
let
new_model = (Struct.Model.new flags)
in
- case (Struct.Flags.maybe_get_param "action" flags) of
+ case (Struct.Flags.maybe_get_parameter "action" flags) of
(Just "disconnect") -> (Update.Disconnect.apply_to new_model)
_ ->
if (flags.user_id == "")
diff --git a/src/login/src/Struct/Model.elm b/src/login/src/Struct/Model.elm
index 7d14239..3a721c1 100644
--- a/src/login/src/Struct/Model.elm
+++ b/src/login/src/Struct/Model.elm
@@ -45,7 +45,7 @@ type alias Type =
new : Struct.Flags.Type -> Type
new flags =
let
- maybe_mode = (Struct.Flags.maybe_get_param "mode" flags)
+ maybe_mode = (Struct.Flags.maybe_get_parameter "mode" flags)
model =
{
help_request = Struct.HelpRequest.None,
diff --git a/src/login/src/Update/HandleConnected.elm b/src/login/src/Update/HandleConnected.elm
index 00843c7..15e3371 100644
--- a/src/login/src/Update/HandleConnected.elm
+++ b/src/login/src/Update/HandleConnected.elm
@@ -26,7 +26,7 @@ apply_to model =
(Action.Ports.go_to
(Constants.IO.base_url ++
(
- case (Struct.Flags.maybe_get_param "goto" model.flags) of
+ case (Struct.Flags.maybe_get_parameter "goto" model.flags) of
Nothing -> "/main-menu/"
(Just string) ->
case (Url.percentDecode string) of