From 2aa0c12b6a193d16681a0179a067664390af7aee Mon Sep 17 00:00:00 2001 From: nsensfel Date: Fri, 14 Sep 2018 18:57:42 +0200 Subject: ... --- src/Struct/Model.elm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src/Struct/Model.elm') diff --git a/src/Struct/Model.elm b/src/Struct/Model.elm index 6d4a588..dca14c2 100644 --- a/src/Struct/Model.elm +++ b/src/Struct/Model.elm @@ -22,7 +22,9 @@ type alias Type = { flags: Struct.Flags.Type, error: (Maybe Struct.Error.Type), - players: (Array.Array Struct.Player.Type) + players: (Array.Array Struct.Player.Type), + query_index: Int, + notify: Bool } -------------------------------------------------------------------------------- @@ -37,13 +39,17 @@ new flags = { flags = flags, error = Nothing, - players = (Array.empty) + players = (Array.fromList (Struct.Flags.get_players flags)), + query_index = -1, + notify = False } reset : Type -> Type reset model = {model | - error = Nothing + error = Nothing, + notify = False, + query_index = -1 } invalidate : Struct.Error.Type -> Type -> Type -- cgit v1.2.3-70-g09d2