...

1 files changed, 8 insertions, 0 deletions

diff --git a/src/shared/Struct/Flags.elm b/src/shared/Struct/Flags.elm
index 0347001..e7cea2a 100644
--- a/src/shared/Struct/Flags.elm
+++ b/src/shared/Struct/Flags.elm
@@ -3,6 +3,8 @@ module Struct.Flags exposing
       Type,
       get_frequency,
       get_players,
+      set_frequency,
+      set_players,
       default,
       decoder,
       encode
@@ -37,6 +39,12 @@ get_frequency flags = flags.frequency
 get_players : Type -> (List Struct.Player.Type)
 get_players flags = flags.players
 
+set_frequency : Int -> Type -> Type
+set_frequency val flags = {flags | frequency = val}
+
+set_players : (List Struct.Player.Type) -> Type -> Type
+set_players val flags = {flags | players = val}
+
 default : Type
 default =
    {