summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2020-01-15 17:22:01 +0100
committernsensfel <SpamShield0@noot-noot.org>2020-01-15 17:22:01 +0100
commit83543758b9682f0e476809f207957471fcbbff5b (patch)
tree89b1f3a64810e47302b103acde5b608fd8d5327d /src/shared/elm/Struct/Flags.elm
parentdc7c1857845a5da7cd6cba178c16fa8ea8c68cec (diff)
...
Diffstat (limited to 'src/shared/elm/Struct/Flags.elm')
-rw-r--r--src/shared/elm/Struct/Flags.elm38
1 files changed, 19 insertions, 19 deletions
diff --git a/src/shared/elm/Struct/Flags.elm b/src/shared/elm/Struct/Flags.elm
index a9f1630..475d1f2 100644
--- a/src/shared/elm/Struct/Flags.elm
+++ b/src/shared/elm/Struct/Flags.elm
@@ -1,9 +1,9 @@
module Struct.Flags exposing
(
Type,
- maybe_get_param,
- force_get_param,
- get_params_as_url,
+ maybe_get_parameter,
+ force_get_parameter,
+ get_parameters_as_url,
get_session_token,
get_user_id
)
@@ -21,27 +21,27 @@ type alias Type =
{
user_id : String,
token : String,
- url_params : (List (List String))
+ url_parameters : (List (List String))
}
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
-param_as_url : (List String) -> String
-param_as_url param =
- case param of
+parameter_as_url : (List String) -> String
+parameter_as_url parameter =
+ case parameter of
[name, value] -> (name ++ "=" ++ value)
_ -> ""
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
-maybe_get_param : String -> Type -> (Maybe String)
-maybe_get_param param flags =
+maybe_get_parameter : String -> Type -> (Maybe String)
+maybe_get_parameter parameter flags =
case
(Util.List.get_first
- (\e -> ((List.head e) == (Just param)))
- flags.url_params
+ (\e -> ((List.head e) == (Just parameter)))
+ flags.url_parameters
)
of
Nothing -> Nothing
@@ -50,20 +50,20 @@ maybe_get_param param flags =
Nothing -> Nothing
(Just b) -> (List.head b)
-force_get_param : String -> Type -> String
-force_get_param param flags =
- case (maybe_get_param param flags) of
+force_get_parameter : String -> Type -> String
+force_get_parameter parameter flags =
+ case (maybe_get_parameter parameter flags) of
Nothing -> ""
(Just str) -> str
-get_params_as_url : Type -> String
-get_params_as_url flags =
+get_parameters_as_url : Type -> String
+get_parameters_as_url flags =
(List.foldl
- (\param -> \current_params ->
- (current_params ++ "&" ++ (param_as_url param))
+ (\parameter -> \current_parameters ->
+ (current_parameters ++ "&" ++ (parameter_as_url parameter))
)
""
- flags.url_params
+ flags.url_parameters
)
get_session_token : Type -> String