...

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