From 23ecc837380e2653d600e0246f50db30a3a238fc Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 10 Dec 2018 17:42:00 +0100 Subject: ... --- src/shared/elm/Struct/Flags.elm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/shared/elm/Struct') 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 -- cgit v1.2.3-70-g09d2