From 11533a168693bd31ed1b73ccb02e5b5062d53783 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sun, 30 Sep 2018 21:10:00 +0200
Subject: ...

---
 src/shared/Struct/Flags.elm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/shared')

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 =
    {
-- 
cgit v1.2.3-70-g09d2