| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Struct')
| -rw-r--r-- | src/Struct/Flags.elm | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/src/Struct/Flags.elm b/src/Struct/Flags.elm index 0e2ca14..ccda57a 100644 --- a/src/Struct/Flags.elm +++ b/src/Struct/Flags.elm @@ -1,7 +1,8 @@ module Struct.Flags exposing ( Type, - maybe_get_param + get_frequency, + get_players ) -- Elm ------------------------------------------------------------------------- @@ -15,7 +16,8 @@ import Util.List -------------------------------------------------------------------------------- type alias Type = { - url_params : (List (List String)) + frequency : Int, + players : (List String) } -------------------------------------------------------------------------------- @@ -25,16 +27,8 @@ type alias Type = -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- -maybe_get_param : String -> Type -> (Maybe String) -maybe_get_param param flags = - case - (Util.List.get_first - (\e -> ((List.head e) == (Just param))) - flags.url_params - ) - of - Nothing -> Nothing - (Just a) -> - case (List.tail a) of - Nothing -> Nothing - (Just b) -> (List.head b) +get_frequency : Type -> Int +get_frequency flags = flags.frequency + +get_players : Type -> (List String) +get_players flags = flags.players |