| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/shared/elm/Struct/Flags.elm')
| -rw-r--r-- | src/shared/elm/Struct/Flags.elm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/shared/elm/Struct/Flags.elm b/src/shared/elm/Struct/Flags.elm index 8cb8aea..9fb9eac 100644 --- a/src/shared/elm/Struct/Flags.elm +++ b/src/shared/elm/Struct/Flags.elm @@ -2,6 +2,7 @@ module Struct.Flags exposing ( Type, maybe_get_param, + force_get_param, get_params_as_url ) @@ -47,6 +48,12 @@ 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 + Nothing -> "" + (Just str) -> str + get_params_as_url : Type -> String get_params_as_url flags = (List.foldl |