From 463aca15fdeeb7fda838dcc7355d2365de5d703d Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 29 Sep 2018 15:07:13 +0200
Subject: ...

---
 src/shared/Action/Ports.elm | 4 ++--
 src/shared/Struct/Flags.elm | 8 ++++++++
 2 files changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/shared')

diff --git a/src/shared/Action/Ports.elm b/src/shared/Action/Ports.elm
index 70d5183..c14d7f4 100644
--- a/src/shared/Action/Ports.elm
+++ b/src/shared/Action/Ports.elm
@@ -1,8 +1,8 @@
 port module Action.Ports exposing (..)
 
 port get_params : () -> (Cmd msg)
-port params_in : ((Int, String) -> msg) -> (Sub msg)
-port set_params : (Int, String) -> (Cmd msg)
+port params_in : (String -> msg) -> (Sub msg)
+port set_params : (String) -> (Cmd msg)
 
 port get_results : () -> (Cmd msg)
 port results_in : (String -> msg) -> (Sub msg)
diff --git a/src/shared/Struct/Flags.elm b/src/shared/Struct/Flags.elm
index 29707a9..0347001 100644
--- a/src/shared/Struct/Flags.elm
+++ b/src/shared/Struct/Flags.elm
@@ -3,6 +3,7 @@ module Struct.Flags exposing
       Type,
       get_frequency,
       get_players,
+      default,
       decoder,
       encode
    )
@@ -36,6 +37,13 @@ get_frequency flags = flags.frequency
 get_players : Type -> (List Struct.Player.Type)
 get_players flags = flags.players
 
+default : Type
+default =
+   {
+      frequency = 1,
+      players = []
+   }
+
 decoder : (Json.Decode.Decoder Type)
 decoder =
    (Json.Decode.map2
-- 
cgit v1.2.3-70-g09d2